It looks like you have some good answers above already, but you might also want to take a look at Term::ProgressBar. Even if it doesn't do exactly what you want, it may give you some hints on implementation.