use LWP::UserAgent;;
use HTTP::Request;
use HTTP::Response;
use HTTP::Request::Common;
$agent=new LWP::UserAgent;
$request=POST('http://localhost:8080/wm/ab',[name=>'zhangsan']);
$request->header('User-Agent'=>'Mozilla/5.0 (Windows NT 5.1; rv:10.0.1) Gecko/20100101 Firefox/10.0.1');
$request->header('Accept-Encoding'=>'gzip, deflate');
$response=$agent->request($request);
print $response->status_line,"\n";
print $response->content;
use LWP::UserAgent;;
use HTTP::Request;
use HTTP::Response;
use HTTP::Request::Common;
$agent=new LWP::UserAgent;
$request=POST('http://localhost:8080/wm/ab',[name=>'zhangsan']);
$request->header('User-Agent'=>'Mozilla/5.0 (Windows NT 5.1; rv:10.0.1) Gecko/20100101 Firefox/10.0.1');
$request->header('Accept-Encoding'=>'gzip, deflate');
$response=$agent->request($request);
print $response->status_line,"\n";
print $response->content;