use Socket;
sub IO::Socket::DESTROY
{
    my $sock= shift @_;
    return   if  ! defined fileno $sock;
    my $peerAddr= getpeername( $sock );
    my( $port, $ip )= sockaddr_in( $peerAddr );
    my $host= gethostbyaddr( $ip, AF_INET() );
    $ip= inet_ntoa( $ip );
    $ip= "$host($ip)"   if  $host;
    warn "Shutting down socket to $ip:$port...\n";
    shutdown( $sock, 2 );
    close( $sock );
}