use threads;
use Testit;

my $argument=1;

my $thread=threads->create( \&forthread, ($argument));
$thread->join();
exit(0);

__END__
C:\test>test.pl
1 at Testit.pm line 11.