in reply to Copying a directory and its contents wihile displaying a progress bar
Take a look at: Term::ProgressBar.
Hope this helps.