Select Code to Download

use IO::Socket::INET;
my $server = IO::Socket::INET->new(
...
    Listen   => 1000,
    Reuse    => 1.
) or die "Create listner failed with: $! [$^E]";

#! perl -slw
use strict;
...
    };
    $c->shutdown( 2 ) or warn "Shutdown failed with $^E\n"
}

c:\test>for /l %i in (1,1,10) do @start /b serialClient.pl %i