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

Replies are listed 'Best First'.
Re: Perl Saroyan
by hippo (Archbishop) on Sep 12, 2020 at 10:48 UTC

    $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. ;-)

    🦛

[reply]
[d/l]
[select]

Back to Perl Poetry