use LWP::UserAgent; 
use HTTP::Request::Common;

my $filename = 'file.zip'; # example
my $url = "http://www.domain.com/$filename";

my $ua = LWP::UserAgent->new(keep_alive=>1);
my $headers = HTTP::Headers->new();
$headers->authorization_basic('user', 'pass');
my $request = new HTTP::Request(GET => $url, $headers);
my $response = $ua->request($request);
print "response:" . $response->code . "<br>";

open(ZIP, ">$filename");
binmode ZIP;
print ZIP $response->content;
close(ZIP);