#!/usr/local/bin/perl
# Lookup all the machine name in a given class C network
# Kees Cook 1997

$|=1;
$n = 0;

$start = shift;
 
if($start eq "") { die "usage: nssearch xxx.xxx.xxx\n"; }

($a1,$a2,$a3) = split('\.',$start);
while($n < 256) {
	($name, $aliases, $addrtype, $length, @addrs) = 
		gethostbyaddr(pack("C4","$a1","$a2","$a3","$n"),2);
    if ($name) {
	print join(".",unpack("C4",$addrs[0])),"\t$name\n";
    }
    else {
        print "$start.$n\t[no name]\n";
    }
 
    $n = $n + 1;
}