Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use Net::Ping;
$p = Net::Ping->new('icmp');
print "She's workin\n" if $p->ping("ns.online.no");
$p->close();

Select or download this

zodiac:/home/perl# ./test1.pl
She's workin
zodiac:/home/perl#