#!/usr/bin/perl

if(!$ARGV[0]) {
  die "Usage: $0 SUBNET\n";
}

use Socket;


for($i=0;$i<256;$i++) {
  $ip = $ARGV[0].".".$i;
  $addr = inet_aton($ip);
  $hostname = gethostbyaddr($addr, AF_INET);
  chomp($hostname);
  print $ip."\t\t".$hostname."\n" if($hostname);
}
      

© Henrik Teichmann