use Net::NNTP;
use Socket;

my $nntp = Net::NNTP->new('news-server');
my $hostaddr = $nntp->connected;
print inet_ntoa((sockaddr_in($hostaddr))[1]), "\n" if defined $hostaddr;