[root@dr-mysql01 lwp]# perl yyget.pl
$content is {"succ":true,"err_msg":"","is_succ":true,"timeout":false,"overdue":false}
[root@dr-mysql01 lwp]# cat yyget.pl
use Encode;
use Encode::CN;
use URI::Escape;
use LWP::Simple;
#$host = "http://ip.taobao.com/service/getIpInfo.php?ip=202.101.172.35";
$host = "http://licai.yingyinglicai.com/user/smsVerifySend.do?mobile=180xxx2237";
$content = get($host);
print "$content is $content
";