use HTTP::Cookies;
my $agent = new LWP::UserAgent;
my $co=new HTTP::Cookies(file=>'./stored.cookies',autosave=>1);
$agent->cookie_jar($co);
[download]

i'd just like to point out that when the cookie_jar in LWP::UserAgent is used in this manner, it will automatically grab and store the cookies from all HTTP::Responses returned by the UserAgent. it will also automatically add cookies to all HTTP::Request objects that pass through it.

so, if you set a UserAgent's cookie jar, there is typically no need to manipulate the cookie jar manually (i.e. with extract_cookies and add_cookie_header).

Note: All links here don't link directly to the documentation but to the CPAN search engine for the documentation, sorry for the inconvenience !

I haven't used HTTP::Request and LWP::UserAgent much, but by looking into the documentation of HTTP::Message and of HTTP::Response, it seems to me as if this (untested) code should work :

 require LWP::UserAgent;
 require HTTP::Message; 
 $ua = new LWP::UserAgent;



 $request = new HTTP::Request('GET', 'file://localhost/etc/motd');



 $response = $ua->request($request); # or
 $response = $ua->request($request, '/tmp/sss'); # or
 $response = $ua->request($request, \&callback, 4096);

 print $response->headers_as_string, "\n";
 print $response->headers->header( "Set-Cookie" ), "\n";

 sub callback { 
   my($data, $response, $protocol) = @_; 
   # your stuff here, like status etc.
 }
[download]

Another interesting thing for programmers that have to work with RFCs is the RFCsearch engine, written in Perl :)