Help for this page
my $q = CGI->new(); my $domain = $q->param('domain'); my $result = `ping $domain`;
my $domain=''; $q->param('domain') =~ /^([a-zA-Z0-9\.]+)$/ and $domain = $1;
$q->param('domain') =~ /^(.+)$/ and $domain = $1;
www.com | www.net | www.org
No recent polls found