#!/usr/bin/perl
use Net::Ping;
if(pingecho("www.163.com",150) ) {
print "163 is on the network.";
}
else
{
print "163 is unreachable";
}
use Net::Ping;
if(pingecho("www.163.com",150) ) {
print "163 is on the network.";
}
else
{
print "163 is unreachable";
}