Select Code to Download

use Net::NNTP;
use Socket;
...
my $hostaddr = $nntp->connected;
print inet_ntoa((sockaddr_in($hostaddr))[1]), "\n" if defined $hostadd
+r;