use LWP::UserAgent;
use HTTP::Request::Common;
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 = HTTP::Request(GET => $url, $headers);
my $response = $ua->request($request);
print "response:" . $response->code . "\n";