use strict;
use warnings;

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

my $ua = LWP::UserAgent->new;

my $req = HTTP::Request->new(GET => 'http://example.org/blah.txt'); # URL
$req->authorization_basic('Ruuut', 'abcdefg1234566'); # Nutzername , Passwort

my $response = $ua->request($req, 'datei.txt'); # abholen und in Datei speichern