thanks for you answer my question,now my problem have solve. and i would like to share my code

 use LWP;
 use HTTP::Cookies::Microsoft;
 use Win32::TieRegistry(Delimiter => "/");
 my $cookies_dir = $Registry->
      {"CUser/Software/Microsoft/Windows/CurrentVersion/Explorer/Shell
+ Folders/Cookies"};

 $cookie_jar = HTTP::Cookies::Microsoft->new(
                   file     => "$cookies_dir\\index.dat",
                   'delayload' => 1,
               );
 my $browser = LWP::UserAgent->new;
 $browser->cookie_jar( $cookie_jar );
 $req = HTTP::Request->new('GET',"http://www.92home.com/cgi-bin/lb5000
+/memberlist.cgi?a=4&page=1");

 $res = $browser->request($req);
 print $browser->request($req)->as_string;
[download]