Network Perl

  1. Home
  2. Perl
  3. Network
  4. Ping a host
use Net::Ping;
$pingobject = Net::Ping->new(icmp);
if ($pingobject->ping('cpan.org')) {print "Could reach CPAN."};
$pingobject->close();