sub jitter { my @symbol = qw(| / - \\); my $delay = rand 200; for (1..400) { print $symbol[$_%4]; for (1..$delay) {} print "\x08"; } } sub flimflam { for (1..50) { jitter(); print "."; } } $| = 1; &flimflam; print "\n";