v-lhb-db01:/root/sbin# cat s1.pl 
use Net::SMTP;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);  
sub send_mail{
if (@_ != 2){print "请输入2个参数\n";exit 1};
my $CurrTime = time2iso(time());
    my $to_address  = shift;
    my $mail_user   = 'zhao.yangjian@163.com';
    my $mail_pwd    = 'zhaoyangjian724';
    my $mail_server = 'smtp.163.com';

    my $from    = "From: $mail_user\n";
    my $subject = "Subject: zjcap info\n";
    my $info = "$CurrTime--$mess_info";
     my $message = <<CONTENT; 
     $info
CONTENT
    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();
};
send_mail;
v-lhb-db01:/root/sbin# perl s1.pl 
请输入2个参数

---------------------------------------------------------------------
v-lhb-db01:/root/sbin# perl s1.pl 
请输入2个参数
Auth Error! No such file or directory at s1.pl line 19.
v-lhb-db01:/root/sbin# cat s1.pl 
use Net::SMTP;
use HTTP::Date qw(time2iso str2time time2iso time2isoz);  
sub send_mail{
if (@_ != 2){print "请输入2个参数\n"};
my $CurrTime = time2iso(time());
    my $to_address  = shift;
    my $mail_user   = 'zhao.yangjian@163.com';
    my $mail_pwd    = 'zhaoyangjian724';
    my $mail_server = 'smtp.163.com';

    my $from    = "From: $mail_user\n";
    my $subject = "Subject: zjcap info\n";
    my $info = "$CurrTime--$mess_info";
     my $message = <<CONTENT; 
     $info
CONTENT
    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();
};
send_mail;
v-lhb-db01:/root/sbin# perl s1.pl 
请输入2个参数
Auth Error! No such file or directory at s1.pl line 19.

此时程序没退出,继续运行了