リトルエンディアンでdotlessipを逆引き
#!/usr/bin/perl
while(){
chomp $_;
$_=~s/\s+//g;
my $ret=sprintf("%s.%s.%s.%s",unpack('CCCC', pack('I',$_)));
$ret=~/([0-9]+)\.([0-9]+)\.([0-9]+)\.([0-9]+)/;
$ret="$4.$3.$2.$1";
my $host = gethostbyaddr(pack("C4", split(/\./, $ret)), 2);
print "$host($ret)\n";
}