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

##</code><code>##

#! perl -slw
use strict;
use List::Util qw[ shuffle ];
use IO::Socket::INET;;

our $N ||= 10000;

my $cno = shift;

for ( 1.. $N ) {
    warn $_;
#    <STDIN>;
    my $c = IO::Socket::INET->new( 'localhost:9000' ) or do{
        warn "\a\n\n\t\t*** $cno ($_): Connect failed with [$^E] ***\n\n\a";
        sleep 10;
        next;
    };
    $c->shutdown( 2 ) or warn "Shutdown failed with $^E\n"
}

##</code><code>##

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