use LWP::Simple;
$url = 'http://网页地址';
print get($url);
#另一个模块查看网页源代码
use LWP::UserAgent;
$url = 'http://网页地址';
$a = new LWP::UserAgent();
$response = $a ->get($url);#$a是一个虚拟的浏览器，包括很多方法，其中get方法是与网页交互
$html = $response ->content;#get这个方法得到的是一个hash表，包括很多东西，其中content这个是网页的内容
print $html;
