in reply to Reverse DNS lookup on a list of ip addresses

Maybe that could help:
use strict; my @ips=('208.201.239.56','216.239.33.101'); print join "\n",map {scalar gethostbyaddr pack('C4',split /\./),2} @ip +s;