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

##</code><code>##

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