windows lwp 乱码问题

use  LWP::UserAgent;use Encode;my $ua = LWP::UserAgent->new;$phone=$ARGV[0];$cc=$ARGV[1];$ua->timeout(10);$ua->env_proxy;$ua->agent("Mozilla/8.0");$host = "http://sh2.ipyy.com/sms.aspx?action=send&userid=5409&account=sc10624&password=c1062411mobile=$phone&content=$cc&sendTime=&extno=";my $response = $ua->get($host);  $ua->default_headers;if ($response->is_success) {#my $str=encode("gbk",decode("utf8","$r"));#my $r=$response->decoded_content); print encode("gbk",decode("utf8",$response->content));  # or whatever}else { die $response->status_line;}C:\>perl ./a2.pl 18072722237 888<?xml version="1.0" encoding="utf-8" ?><returnsms>    <returnstatus>Faild</returnstatus>    <message>鐢ㄦ埛鍚嶉敊璇?/message>    <remainpoint>0</remainpoint>    <taskID>0</taskID>    <successCounts>0</successCounts></returnsms>