great simple script

./check_ping.pl –host wiki –loss 10,20 –rta 50,100 –timeout 2 –packages 5
PING – Packet loss = 0%, RTA = 23.46 ms|rta=23.46 ms[

added perf info by changing this line:
printf(“PING – Packet loss = %i%%, RTA = %.2f ms|rta=%.2f ms”, $loss, $rta, $rta);

thank you