#!/usr/local/bin/perl

use Socket;

while (@ARGV) {
    	$dotaddr = shift @ARGV;
	$addr = pack('C4',split(/\./, $dotaddr));
	if (($name, $aliases, $type, $len, @addrs) = gethostbyaddr($addr, AF_INET)) {
       	    print "$name, $aliases, $type, $len, @addrs: ";
	    while (@addrs) {
       		     $addr = shift @addrs;
       		     print join('.',unpack('C4', $addr));
	      		print ', ' if (@addrs);
	    }
            print "\n";
         } else {
            print "gethostbyaddr didn't work: $?\n";
         }
}