File Download Progress Bar Help Needed, thanks!

Dear Perl Hackers : )

How can i add a progressbar to get this script below to show progress? What it does is you enter the url to the file you need to download, give a file name and click the download button and it gets the file for you. Adding a progress bar would make it more useful.

I've started learning perl 2 days back and loving it however could not find a specific solution to this one on google. I'm sure someone here will share it with me

Thanks in advance
Speedo

# script to download files from the internet

use Tk;
use LWP::Simple;

$mw = new MainWindow;
$url = $mw->Entry()->pack();
$filename = $mw->Entry()->pack();
$download = $mw->Button(-text=>"Download",-command=>\&download)->pack();

sub download{
getstore($url->get(),$filename->get());
}
MainLoop;

Take a look at Tk::ProgressBar.

thanks! FishMonger, i'm experimenting with it and will post updates soon