Select Code to Download

$p = Net::Ping->new('icmp');

w01b0rji.cube.fred.ch `ping` OK : w01b0rji.cube.fred.ch is alive
w01b0rji.cube.fred.ch $p->ping NOK
...

160.69.125.142 `ping` OK : 160.69.125.142 is alive
160.69.125.142 $p->ping NOK