# The syntax is (name, altnames, addrtype, len, addrs) = 
# gethostbyaddr (inaddr, inaddrtype); 

#!/usr/local/bin/perl 

$machine ="123.1.1.1"; 
@bytes = split (/\./, $machine); 
$packaddr = pack ("C4", @bytes); 
if (!(($name, $altnames, $addrtype, $len, @addrlist) = gethostbyaddr ($packaddr, 2))) { 
    die ("Address $machine not found.\n"); 
} 
print ("Principal name: $name\n"); 
if ($altnames ne "") { 
    print ("Alternative names:\n"); 
    @altlist = split (/\s+/, $altnames); 
    for ($i = 0; $i < @altlist; $i++) { 
        print ("\t$altlist[$i]\n"); 
    } 
}