hi,

I got this program from one of forums:

http://www.perlguru.com/gforum.cgi?post=32920

its something like this:
-------------------------------------------------------------------------...