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;