http://www.perlmonks.org?node_id=11121647

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

Back to Perl Poetry