$i is unused and the join does nothing.

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

There, now that's much more relaxing. ;-)