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.
 }