Perl Saroyan

[Anonymous Monk]

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

[hippo]

$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 }'

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