#! /bin/sh

PATH=/bin:/usr/bin

[ ! $1 ] && exit
host=$1

/sbin/ping -n -c 5 -t 5 $host | /usr/bin/perl -e \
    ' $late = $loss = 0; while(<>) {
    if (/received, ([0-9]+)% packet loss/) { $loss = $1 }
    if (/stddev = [0-9\.]+\/([0-9]+)\.[0-9]*\/[0-9\.]+\/[0-9\.]+ ms/) { $late = $1 }
    } printf("N:%u:%u", $loss, $late) '
