1#!./perl 2 3chdir 't' if -d 't'; 4@INC = ('../lib', '.'); 5 6require 'thread_it.pl'; 7thread_it(qw(re reg_email.t)); 8