use CGI qw/:standard/;
my $cgiObj = new CGI;
my $addr_to_ping=$cgiObj->param('ip_address');