How can I add a progress bar to WWW::Mechanize?

I have the following code: $mech->get($someurl, \":content_file\" => \"$i.flv\"); So I\'m getting the contents of a url and saving it as an flv fil开发者_Go百科e. I\'d like to print out every