C:\Documents and Settings\Mine>c:\Perl5.10\bin\perl.exe -e "eval 'use threads'; print \"$@\"; $t1 = threads->create(sub {print '1'}); $t2 = threads->create(sub{print '2'}); $t1->join; $t2->join();"
12
C:\Documents and Settings\Mine>