Select Code to Download

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

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