Select Code to Download

my $listener = IO::Socket::INET->new(
   LocalPort => $port,
...
   print "Recv from client ($fh_hex):\n";
   # ... display data received ...
}

my $fh_hex   = sprintf '0x%x', $new_conn;
my $peerhost = $new_conn->peerhost();
...
my $peeraddr = $new_conn->peeraddr();
my $peerhostfull = gethostbyaddr($peeraddr, AF_INET) || "Cannot resolv
+e";
print "Accepted new connection $fh_hex ($peerhost:$peerport,host=$peer
+hostfull)\n";