my $PORT = 5555;



# set up the socket SERVER, bind and listen ...

my $lsn = new IO::Socket::INET(Listen    => 5,

                               Type      => SOCK_STREAM,

                               Proto     => 'tcp',

                               Reuse     => 1,

                               LocalPort => $PORT);







$SIG{CHLD} = sub {wait()}; 



my ($child, $pid);

while ($child = $lsn->accept()) {

   print "Accepted!
";

   $pid = fork;

   die "fork: $!" unless defined $pid;

   if($pid == 0) {

      ServOnClient($child);

      $child->shutdown(2);

      exit;

   }

   else {

      print "Accepting...
";

   }

}

$lsn->close;