http://qs321.pair.com?node_id=52575

An amusing trifle if you want to make it look like your perl script is really DOING something. Useful for showing off to computer illiterate types whom you want to impress with your programming skills. To your Pointy Haired Boss you say: "Hmmm, that's a difficult calculation..." But you think: . o 0 ( MAN, That's a one liner! ) This little spinner adds amusing flair to a program that would otherwise finish in an eyeblink.
sub jitter { for (1..100) { print "|"; $foo=rand 100; for(1..$foo){} print "\x08"; print "/"; for(1..$foo){} print "\x08"; print "-"; for(1..$foo){} print "\x08"; print "\\"; for(1..$foo){} print "\x08"; } } sub flimflam { $bar= rand 10; for (1..$bar) { jitter(); print "."; } }