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;}
[download]

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

-- ar0n