Select Code to Download

print "Client exit from ".$user{peer_address}.":".$user{peer_port}."\n
+";

  my $server = IO::Socket::INET->new( Proto     => 'tcp',
                                     PeerAddr  => "0.0.0.0", 
...

##
} # superloop