v-lhb-app01:/home/tomcat> cat s2.pl
use Encode;
use Encode::CN;
use JSON;
use URI::Escape;
use LWP::Simple;
#$host = "http://ip.taobao.com/service/getIpInfo.php?ip=202.101.172.35";
$host = " http://211.149.197.95:8888/sms.aspx?action=send&userid=11&account=00026&password=99&mobile=111172722237&content=内容&sendTime=&extno=";
$content = get($host);
print "$content is $content
";