perl发送http请求

下面是一段perl发送http请求的代码，设置了请求头，表单参数

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;