perl 发送短信

<pre name="code" class="sql">#!/usr/bin/perl 
use Net::SMTP;
   use HTTP::Date qw(time2iso str2time time2iso time2isoz);  
# mail_user should be your_mail@163.com
sub 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   = 'zhao.yangjian@163.com';
    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; 
     $info
CONTENT
    my $smtp = Net::SMTP->new($mail_server);

    $smtp->auth($mail_user, $mail_pwd) || die "Auth Error! $