#/usr/bin/perl
use warnings;
use Socket;
print "Ip address ";
my $ipaddr = <STDIN>;#/usr/bin/perl
use warnings;
use Socket;
print "Ip address ";
my $ipaddr = <STDIN>;
$peer_host = gethostbyaddr($ipaddr, AF_INET);
$peer_addr = inet_ntoa($peer_host);
print $peer_addr;