#!/usr/bin/perl 

$num_packets = 16;

$ping = `ping -c $num_packets $ARGV[0] 2>/dev/null`;

$ping =~ /packets transmitted, ([0-9]+) received/s;
$loss = 100 - (($1 * 100) / $num_packets);

$ping =~ / = [0-9.]+\/([0-9.]+)/s;
$latency = $1;

if ($latency eq "")
{
  $latency = "0.0";
}

print "latency_ms:$latency loss_pct:$loss";