Select Code to Download

my $p = Net::Ping->new();
$p->hires();
...
    printf "Your RTT is %.2f ms\n", $duration * 1000;
}
printf "Received %i packets\n", $received;