use Socket; 
use strict;
my $addy = shift || die "Enter a IP address";
my $client = gethostbyaddr($addy, AF_INET); # get name
if ($client)
{
print $client, "\n\a";
}
else
{
print "no\n";
}