Help for this page
#! perl -slw use strict; ... while $running; warn "\nAll done\n";
#! perl -slw use strict; ... } close $socket;
for /l %i in (2000,1,2100) do @start /b perl 416434-c.pl %i