#!/usr/local/bin/perl 
#
#   Peforms a nslookup in plain perl uses @ARGV as the enter <IP>xxx.xxx.xxx.x
$_= @ARGV[0];
print "$_\n";


@bytes = split (/\./,$_);
print "@bytes\n";
$pack = pack ("C4", @bytes);
print "$pack\n";
($name, $aliases, $addrtype, $length, @addrs) = gethostbyaddr($pack, 2);

print "Name: $name\n";
print "Aliases: $aliases\n";
print "Address type: $addrtype\n";
print "Length: $length\n";
print 'Addresses: ';

foreach (@addrs) { print join('.', unpack('C4', $_)); }
print "\n";