use Net::Ping;
use Win32::OLE; # or use Win32::OLE::Variant;
$p = Net::Ping->new();
print $p->ping($hostname);