perl LWP::UserAgent获取源码与响应

 #!/usr/bin/perl -w
 use strict;
 use LWP::UserAgent;

 my $useragent = new LWP::UserAgent;
 my $url = 'http://www.baidu.com';
 my $request = HTTP::Request->new(GET => $url);
 my $repose = $useragent->request($request);
 print $repose->as_string;
 #网站源码
 print "\n",$repose->status_line, "\n";
 #响应码