ping.perl

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

# ./ping-google.perl google.com
 
use Net::Ping;

my $host = "$ARGV[0]" || 'google.com';

my $p = Net::Ping->new('icmp');
my ($ret, $duration, $ip) = $p->ping($host);

say "Success(1): ${ret}";
say "Duration(s): ${duration}";
say "IP(of ${host}): ${ip}";

if ($ret == 0) {
  say "Failed to connect to host ${host}";
  $p->close();
  exit -1;
} else {
  $p->close();
}