Select Code to Download

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

#!/usr/bin/perl
#Client Script
use strict;
...
    exit(1);
}

#!/usr/bin/perl
#Server Script
...
}