use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = POST 'http://xin.cz3.nus.edu.sg/group/cjttd/List.asp?SetQuery=Y',
[ TN => 'phosphatase',submit1=>'Submit', errors => 0 ];
print $ua->request($req)->as_string;
这是取回来的网页里报的错误
<HTML><HEAD><TITLE>BIDD: 500-100 The page cannot be displayed</TITLE>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=Windows-1252">
<font color="#000066" size="2" face="Arial, Helvetica, sans-serif">
There is a problem with the page you are trying to reach and it cannot be displayed. </font>
* Error Type:
SessionID, ASP 0164 (0x80004005)
An invalid TimeOut value was specified.
/LM/W3SVC/1/ROOT/global.asa, line 33
* Browser Type:
libwww-perl/5.814
* Page:
POST 105 bytes to /group/cjttd/List.asp
* POST Data:
TN=phosphatase&submit1=Submit&errors=0&Referer=http%3A%2F%2Fxin.cz3.nus.edu.sg%2Fgroup%2Fcjttd%2FList.asp