#! perl
use strict;
use warnings;
use Socket;
use Data::Dump;

my $server = shift @ARGV;
my $pip = gethostbyname($server);
dd $pip;
my $IP_add = inet_ntoa($pip);
print $IP_add;

##</code><code>##

21:17 >perl 1602_SoPW.pl perlmonks.pair.com
"\xD1\xC5{\x99"
209.197.123.153
21:17 >