Have you looked at Term::ProgressBar? That's probably where I would start. It seems to cover most of the bases.

PS. For clarity, I've assumed here that you would actually prefer not to shell out to do the copy.