Code:
perl -e'while(1){print scalar(localtime()),q(, );system(q(ping -c 1 google.com | grep transmitted));sleep 60;}' > log.txt


Edited by canuckInOR (16/09/2011 18:21)