#!/usr/bin/perl

$result = `/sbin/ping -q -c 5 www.google.com | grep loss`;
if ($result =~ /(\d+\.\d+\%) packet loss/) {
   print "We lost $1 of the traffic\n";
}