This is almost a FAQ.

Using a Super Search will give you plenty of ideas.

Here a just a few:

• Term::ProgressBar
• Twirling baton progress indicator in Perl
• Progress Bar
• A whirleygig for a progress indicator for scripts
• Term::Twiddle

I'm sure that you can find plenty more.

Cheers,
Darren