Select Code to Download

my $socket = IO::Socket::INET->new(LocalPort => 12345,
                                   Type      => SOCK_STREAM,
                                   Reuse     => 1,
                                   Listen    => 1 );

my $socket = IO::Socket::INET->new(LocalPort => 12345,
                                   Type      => SOCK_STREAM,
...
                                   Listen    => MAX_SERVERS ); 

# MAX_SERVERS = total no. of child processes