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;