$p = Net::Ping->new('icmp');
print "She's workin" if $p->ping(inet_aton("addr.com"));
$p->close();