rob@development:/home/rob$ cat nntp.perl
use Net::NNTP;
use Socket;

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

rob@development:/home/rob$ perl nntp.perl
Net::NNTP>>> Net::NNTP(2.22)
Net::NNTP>>>   Net::Cmd(2.24)
Net::NNTP>>>     Exporter(5.562)
Net::NNTP>>>   IO::Socket::INET(1.25)
Net::NNTP>>>     IO::Socket(1.26)
Net::NNTP>>>       IO::Handle(1.21)
Net::NNTP=GLOB(0x8262444)<<< 200 Welcome to BigPond Broadband - http://www.telstra.com/ (Typhoon v2.0.4.336)
Net::NNTP=GLOB(0x8262444)>>> MODE READER
Net::NNTP=GLOB(0x8262444)<<< 200 Welcome to BigPond Broadband - http://www.telstra.com/ (Typhoon v2.0.4.336)
61.9.191.5
Net::NNTP=GLOB(0x8262444)>>> QUIT
Net::NNTP=GLOB(0x8262444)<<< 205 GoodBye