perl58 -Mthreads -e"@t=map{threads->new(sub{sleep 60;})}1..120; sleep 10; $_->join for @t"