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 "
",$repose->status_line, "
";
#响应码