模拟浏览器的POST请求

#!/usr/bin/perl
#By yzjboy
use LWP::UserAgent;
use HTTP::Cookies;
my $datadir = $ENV{"DOCUMENT_ROOT"}."/cgi-bin";

################################## 
my $url = 'http://www.serverq.com/logon.asp?login=xxxxx&password=xxxx'; 
my $ua = LWP::UserAgent->new;  
my $cookie_jar = HTTP::Cookies->new( file => "$datadir/teqcookie.txt", autosave => 1 ); 
$ua->cookie_jar($cookie_jar); 
$ua->agent( "Explorer" );  
my $request = HTTP::Request->new(GET => $url); 
my $response = $ua->request($request); 
$cookie_jar->extract_cookies($response);  
$ua->cookie_jar($cookie_jar);
# bis hierhin klappt alles... ich würde ne korrekte einloggseite bekommen wenn ich sie # ausgebe...
# auch der Cookie is erstellt  
$url = 'http://www.server.com/status.asp';   
$request = HTTP::Request->new(GET => $url); 
$cookie_jar->add_cookie_header($request); 
my $response = $ua->request($request);   
my $content = $response->content();    
print "$content"; 
exit;