Alternatively, if you want to avoid perl:
Code:
(while :; do date +"%F %R:%S, `ping -c1 google.com|grep transmitted`"; sleep 60; done)>log.txt