[mstoqver] Interactively watching for network lag

Prints out a wavy line of numbers, 1 per second. A wavy line is preferable to a straight block (e.g., the output of ping) because you can see (or expect to see) the shape change every second.

#! perl -wl $v=0; $d=1; for(;;){ print "  "x$v,$v; $d=-1 if $v==10 and $d==1; $d=1 if $v==0 and $d== -1; $v+=$d; sleep 1; }