摘要: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/201001
阅读全文