perl -e "use strict;$|=1;@_=split//=>(shift||'Just Another Perl Hacker
+').' ';for(;!0;){push@_=>shift@_;print@_;select(''=>qq||=>q//=>0.1);p
+rint qq/\b/x@_}"
[download]

It's not so much obfuscated as it is a (long) one-liner. I have tried
to sneak in some obfuscation, however.
Btw, some shells require escaping the '!' in for(;!0;) {...}

-- ar0n