The life of a Perl hacker is a slipery slide (or at least that remark seems to fit this particular JAPH).

Use a relatively standard terminal when running this JAPH. Also, it's been tested successfully on a Linux, Win32, and Unix machine, but YMMV.

I seem to learn something new every time I work my way through one of these things. This one was no exception. I hope you like the results.

$|=@x="\r";map{for($x=45;$x;){sub x{select$u,$u,$u,pop}$qq=$"x--$x.$_
;print@x,$qq.$"x(70-length$qq.join"",@x[1..4]);x.06}x+1;push@x,$_.$"}
qw/Just another Perl hacker/;print$/
[download]

Enjoy!!!

Dave

"If I had my life to do over again, I'd be a plumber." -- Albert Einstein