(Perl) An LWP user agent that can display a progress bar - View it on GitHub