my $q = CGI->new(); my $domain = $q->param('domain'); my $result = `ping $domain`;