use LWP::UserAgent;

   use HTTP::Cookies;

   my $ua = LWP::UserAgent->new;

   $ua->cookie_jar(HTTP::Cookies->new(

      file => "cookies.txt",

      autosave => ));

   my $req = HTTP::Request->new(GET => "http://www.example.com/");

   my $res = $ua->request($req);

   print $res->status_line;

 #用HTTP::Cookies来创建cookie保存的地方

 use LWP::UserAgent;

 use HTTP::Cookies;

 $cookie_jar = HTTP::Cookies->new(

         file => "/home/perl/cookies.dat",

         autosave => ,

 );

 $ua->cookir_jar($cookie_jar);

 #还可以这样

 $ua->cookie_jar({ file => "$ENV{HOME}/.cookies.txt" });

 #注意这里是cookie_jar参数要求是个字典

 use LWP::UserAgent;

 my $ua = LWP::UserAgent->new;

 my $req = HTTP::Request->new(GET => 'http://www.example.com/');

 $req->header('Cookie' => "key1=value1;key2=value2");

 #这个header可参考HTTP::Headers模块

 my $res = $ua->request($req);

 print $res->status_line