#!/usr/bin/perl

#Resolve IP address into hostname
sub ReverseLookup {
    my(@addrs,$xname,$xaliases,$xtype,$xlen,$addr);

    @addrs=split(/\./,$_[0]);
    $addr=pack(' C4',@addrs[0..3]);
    ($xname,$xaliases,$xtype,$xlen,@addrs)=gethostbyaddr($addr,2);
    return $xname;
}

$ip="65.0.78.101";
$name=&ReverseLookup($ip);
print "$ip = $name\n";