Select Code to Download

#! 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