Scrolling animations in perl

I've written a perl script to make scrolling animations. If
anyone is interested, it is at available at:

http://www.dmriley.demon.co.uk/code/ascii-art-scripts/aascroll.pl

The default mode prints a line of text repeatedly, changing the
level of indentation each time. This text can be supplied on the
command line, along with options to control the speed and amount
of indentation.

The "substring" mode (-s option) is the same but prints a substring
instead of the whole line, varying the size of the substring each
time.

The "multiline" mode (-m option) allows a multiline block of text
to be used, giving the same indentation for each line of a block.
In this mode the block of text is read from stdin, so you can do:
$ echo something | figlet | aascroll.pl -m

-- 
(((( .'   )   //=====e       "Beneath the paving stones, the beach!"
 )))   \   )_//____________     -wall inscription Paris may '68
((((    J   ) David Riley  )===========O  dav...@dmriley.demon.co.uk
 ))))______)_______________)===========O  http://www.dmriley.demon.co.uk/