Many people here have written some form of a progress bar. There is even Term::ProgressBar on CPAN.

Super Search for "progress bar". Don't want to weed through the overwhelming number of posts? Check out Progress Bar for a good place to start.