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>