perl 发送短信

<pre name="code" class="sql">#!/usr/bin/perl use Net::SMTP;   use HTTP::Date qw(time2iso str2time time2iso time2isoz);  # mail_user should be [e-mail] send_mail{       if ( $#ARGV < 0 ){        print "please input your database name!\n";                exit(-1);                    }    my $db_name= $ARGV[0];my $CurrTime = time2iso(time());    my $to_address  = shift;    my $mail_user   = '[e-mail]';    my $mail_pwd    = 'xxxxxxx';    my $mail_server = 'smtp.163.com';    my $from    = "From: $mail_user\n";    my $subject = "Subject: zjcap info\n";    my $info = "$CurrTime--mysql-$db_name is  backup done";     my $message = <<CONTENT;      $infoCONTENT    my $smtp = Net::SMTP->new($mail_server);    $smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $!";    $smtp->mail($mail_user);    $smtp->to($to_address);    $smtp->data();             # begin the data    $smtp->datasend($from);    # set user    $smtp->datasend($subject); # set subject    $smtp->datasend("\n\n");    $smtp->datasend("$message\n"); # set content    $smtp->dataend();    $smtp->quit();};@arr_mail=( '[e-mail]','[e-mail]');foreach (@arr_mail){send_mail $_;}