use LWP::UserAgent; $ua = LWP::UserAgent->new; $req = HTTP::Request->new(GET => 'http://www.asite.com/'); $req->authorization_basic('myuid', 'mypassword'); print $ua->request($req)->as_string;