Yeah, I did the same thing just now:

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>
[download]

Requiring in diff't modules in the case at hand doesn't make much since. I'm only doing thread work in the main script, so the '*threaded' module would just contain the 'use threads' statement and the '*notthreaded' module would be empty (or just wouldn't exist).