#/usr/bin/perl
use warnings;
use strict;
use Socket;
print "Ip address ";

my $ipaddr    = <STDIN>;
my $peer_host = gethostbyaddr(inet_aton($ipaddr), AF_INET);

print $peer_host;