Select Code to Download

print "OK \n" if $p->ping("$push_ip_address",2);

$p->ping("$push_ip_address",2) || die "Can't ping address $push_ip_add
+ress -- perl reports $!";