清华大佬耗费三个月吐血整理的几百G的资源，免费分享！....>>>

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;