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