Help for this page

Select Code to Download


  1. or download this
    my $q = CGI->new();
my $domain = $q->param('domain');

my $result = `ping $domain`;
  2. or download this
    my $domain='';
$q->param('domain') =~ /^([a-zA-Z0-9\.]+)$/
    and $domain = $1;
  3. or download this
    $q->param('domain') =~ /^(.+)$/
    and $domain = $1;