用模块吧: use HTML::TokeParser; use LWP::Simple qw(get); use LWP::UserAgent; $CheckR = "http://www.baidu.com"; $Result = get($CheckR);print "$Result\n";if ($Result){ $Result = $browser->post ($CheckR);print "post is : \n$post"; }把这两个值打出来看看。