Help for this page
#!perl -slw use strict; ... my @threads = map{ threads->create( \&thread ) } 1 .. 100; <STDIN>;
#!perl -slw use strict; ... <STDIN>;