perl -MNet::NNTP -MSocket -e '
$n=Net::NNTP->new( localhost,
                   Port=>119,
                   Timeout=>10);
sleep 3600;
print inet_ntoa((sockaddr_in($n->connected()))[1]) || 
      "not connected"'