#!/usr/bin/perl -w

use strict;
use Socket;
my $ip = $ARGV[0] || undef;

unless ($ip) {
    print "What is the IP?\n";
    $ip = <STDIN>;
    chomp $ip;
}

die "No IP given\n" if !$ip;
print "Finding host for $ip...\n";
my $iaddr = inet_aton($ip);
my $name = gethostbyaddr($iaddr, AF_INET) || "NO DATA";

print "$ip is $name\n";