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

Texan has asked for the wisdom of the Perl Monks concerning the following question:

I am new to Perl, so be kind. I am trying to generate a progress bar. I need it to be only console based. I think I have the theory worked out, but cannot get the end result. I know that I start with a number and I have the max number but, how do I get the system to generate the progress bar? I am looking for a simple:
********33%
type of bar. But I am willing to use any code willingly given. Thanks