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