#!/usr/bin/perl -w
use strict;
use Time::HiRes qw( usleep ualarm gettimeofday tv_interval nanosleep
                    clock_gettime clock_getres clock_nanosleep clock
                    stat lstat );
use strict;
use warnings;
use Net::Ping;


print "using Net::Ping\n";
my $p = Net::Ping->new("tcp", 2);

$p->port_number(80);
my $basetime = clock_gettime();
my $realtime = clock_gettime();
my $roundtrip = ($realtime-$basetime) * 1000;
for (my $i=1; $i<=10 ; $i++){
    if ($p->ping("www.google.com")) {
        $realtime = clock_gettime();
        $roundtrip = ($realtime-$basetime) * 1000;
        print  $roundtrip," ms\n";
    } else {
        print "Host is not reachable\n";
    }
    $basetime = clock_gettime();
}


use Net::Ping::External qw(ping);

print "using Net::Ping::External\n";
#my $p = Net::Ping->new("tcp", 2);

#$p->port_number(80);
    $basetime = clock_gettime();
    $realtime = clock_gettime();
    $roundtrip = ($realtime-$basetime) * 1000;
    for (my $i=1; $i<=10 ; $i++){
        if (ping(host => "www.google.com")) {
            $realtime = clock_gettime();
            $roundtrip = ($realtime-$basetime) * 1000;
            print  $roundtrip," ms\n";
        } else {
            print "Host is not reachable\n";
        }
        $basetime = clock_gettime();
    }