#/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;

##</code><code>##

Use of uninitialized value in subroutine entry at huh2 line 7, <STDIN> line 1.
Bad arg length for Socket::inet_ntoa, length is 0, should be 4 at huh2 line 7, <STDIN> line 1.
Use of uninitialized value in subroutine entry at huh2 line 7, <STDIN> line 1.
Bad arg length for Socket::inet_ntoa, length is 0, should be 4 at huh2 line 7, <STDIN> line 1.
Use of uninitialized value in subroutine entry at huh2 line 7, <STDIN> line 1.
Bad arg length for Socket::inet_ntoa, length is 0, should be 4 at huh2 line 7, <STDIN> line 1.

$peer_host = gethostbyaddr($ipaddr, AF_INET);
$peer_addr = inet_ntoa($peer_host);
print $peer_addr;