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

use Win32::Internet;
use Encode;
$INET = new Win32::Internet();
$file = $INET ->FetchURL("http://www.baidu.com");
$b=encode("cp936", decode("utf-8",$file));
print $b;