Neviem cim si to krmil ale toto
$host = $ARGV[0];
open (PING, "ping -nqc 11 -s 1350 -i .5 -w 30 $host|");
while (<PING>) {
/(\d+)% packet loss/ && ($loss = $1);
/= (.+)\/(.+)\/(.+)\/(.+) ms/ && (($min,$avg,$max,$dev) = ($1,$2,$3,$4));
};
close (PING);
print "min:$min avg:$avg max:$max dev:$dev loss:$loss";
ked posles do templatu v prilohe tak by to malo byt ok ...
