perl -Mthreads -E"sub x{sleep rand 100}; for(1..100){ threads->new( \&x, $_ )->detach }; sleep 1000"