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 Faild 鐢ㄦ埛鍚嶉敊璇?/message> 0 0 0