#!/usr/bin/perl
$N = shift || 1;
$T = shift || "192.168.$N.X";
for (0..255) {
($i = $T) =~ s/X/$_/;
print "$i ",`gethostbyaddr $i`;
}