Help for this page

Select Code to Download


  1. or download this
    use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use strict;
...
$ua->credentials($req->url->netloc, "home.sff.net", 'jonathanmark', 'n
+ottherealpassword');
my$content = $ua->request($req)->as_string;
print "Content is $content";
  2. or download this
    The netloc is: home.sff.net. Content is HTTP/1.0 401 (Unauthorized) Ac
+cess Denied
Cache-Control: private
Date: Fri, 01 Mar 2002 01:46:04 GMT
...

Error: Access is Denied.