Select Code to Download

debug mping
my pid is 28139
...
status for www.google.com: 0
status for www.slashdot.org: 0
status for localhost: 0

#!/usr/local/bin/perl
use strict;
...
    }
    return \%results;
}

        my $pid = open $pings[$i][1], "-|", "$pingcmd $hosts[$i] $ping
+size $pingnumber" or
            die "Error executing $pingcmd: $!\n";

       my $pid = ( open $pings[$i][1], "-|", $pingcmd,  $hosts[$i],  $
+pingsize, $pingnumber ) or
            die "Error executing $pingcmd: $!\n";