ホスト名からIPアドレスを引く
$host = "www.hoge.ne.jp";
$addr = join(".", unpack("C4", gethostbyname($host)));
IPアドレスからホスト名を引く
$addr = "127.0.0.1";
$host = gethostbyaddr(pack("C4", split(/\./, $addr)), 2);
Ping
use Net::Ping;
$p = Net::Ping->new('icmp');
print "$host is alive.\n" if $p->ping($host);
$p->close;