$ perl -e 'use threads; for(1..100000) { my $t = threads->new(\&body,$_); $t->detach; } sub body {print "Called: @_\n"}'