in reply to Command line output of Perl script
You might want to look at Term::ProgressBar which does basically what you want.
/J\