$ua = LWP::UserAgent->new;
     my $req = HTTP::Request->new(GET =>   
         "http://localhost:8998/foo");
     $req->authorization_basic('fo', 'fi');
     my $res = $ua->request($req) ;