my $ua = new LWP::UserAgent;
my $req = new HTTP::Request 'GET', 'http://mydomain.com/';
     $req->authorization_basic('uname', 'password');
my $resp = $ua->request($req);
 if ($resp->is_success) {
      print $resp->content;
  } else {
         print "Error: " . $resp->status_line . "\n";
         print $resp->as_string;
  }