perl -e 'use Time::HiRes qw(usleep); for (1..145) { print " " x 72 . "crickets\n"; usleep 550000 }'