use LWP::UserAgent;
use  LWP::Protocol::https;
use File::Download;

$url=q{https://feeds.itunes.apple.com/feeds/epf/v3/full/current/};
$ua = LWP::UserAgent->new;
$ua->show_progress(true);
$req = HTTP::Request->new(GET => $url);
$req->authorization_basic('', '');
@str= split /\n/,$ua->request($req)->as_string;
$i=0;

foreach $l(@str){
$l=~m/href="(.+tbz)"/g;
$fnm=$1;
$i++;
unless ($fnm eq '' ){
$dw=HTTP::Request->new(GET => "$url$fnm");
$dw->authorization_basic('', '');
open(out,">$fnm");
binmode out;
print out $ua->request($dw)->content;
close(out);
}
}