http://www.perlmonks.org?node_id=17691

Here's my first attempt, please don't laugh.
@f=split(//,shift||"Just Another Perl Hacker"); sub p{print @_};while(){for($i=0;$i<@f;$i++){$j=6000;while(#$j-- if($slow) --$j){p("."=>chr(8));}p$f[$i];}p"\n";push@f,shift@f;}

update: err, copy error, sorry... it works now

-- ar0n