复制　　#!/usr/bin/perl -w   　　use strict;   　　use LWP::Simple;   　　use URI::Escape;   　　use Digest::MD5;   　　my ($mobile,监控 $content) = @ARGV;   　　my $log_control = 1;   　　my $key = Ysdbyhd6T;   　　my $souce_content = substr($mobile, 0, 8) . substr($mobile, -10, 10) . $key;   　　my $md5 = Digest::MD5->new;   　　$md5->add($souce_content);   　　my $result_conent = uc($md5->hexdigest);   　　my $url = "http://http.asp.sh.cn/MT.do?Username=sery&Password=([-BVG0&Mobile=$mobile&Content=$content&Keyword=$result_conent";   　　my $result = get $url;   　　if($log_control) {   　　my $fh;   　　open($fh, >> /var/log/sms.log) or die "cant open log: $!";   　　print $fh join( , time, $result, "\n");   　　close $fh;   　　}   1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.31.32.33.34.35.36.37.38.39.40.