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]

Hope that helps a bit, but maybe some of the other monks with more experience will step in ;). I'm also not really sure about the Set-Cookie header - if noone here provides an authoritative answer, you might like to check the according RFC, that would be RFC 2616, available here and RFC 2817.

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