Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use IO::Socket;
use Net::Ping;
...
}
}#end of 1st while loop
close ($sock);
  2. or download this
    #!/usr/bin/perl
use IO::Socket;
use Net::Ping;
...
die "Socket could not be created. Reason: $!\n" unless $sock;
print $sock "ping:$destination \n";
close ($sock);