>perl -Mthreads -le"print time;@t=map{threads->new(sub{sleep 300})}1..100;print time;<>"
1107144770
1107144772