Perl 发送邮件到 BREQ_FAST

#!/usr/bin/perl -w
#
#  Perl Script to send emails to IRIS
#
#  Author:  SeisMan @ seisman.info
#  Date:    2013/07/22
#

use warnings;
use strict;

use Net::SMTP;
use MIME::Base64;

@ARGV >= 1 or die "Usage: perl $0 mailfiles \n";

my $host = 'smtp.163.com';          # host domain
my $sender = 'xxxxxxx@163.com';                  # my email
my $passwd = "xxxxxxxxx";            # password
my $recipient='breq_fast@iris.washington.edu';  # BREQ_FAST email

foreach (@ARGV) {
    my $smtp = Net::SMTP->new(
        Host    =>   $host,
        Timeout =>   30,
        Debug   =>   0,
    );

    # Log in
    $smtp->command('AUTH LOGIN')->response();
    my $userpass = encode_base64($sender);  chomp($userpass);
    $smtp->command($userpass)->response();
    $userpass = encode_base64($passwd); chomp($userpass);
    $smtp->command($userpass)->response();

    # send mail
    print "Sending mailfile $_\n";
    $smtp->mail($sender);
    $smtp->to($recipient);
    $smtp->data();
    $smtp->datasend("From: $sender \n");
    $smtp->datasend("To: $recipient \n");
    $smtp->datasend("\n");

    open(IN,"<$_") or die "Error in opening $_\n";
        $smtp->datasend($_) foreach (<IN>);
    close(IN);
    $smtp->dataend();
    $smtp->quit;
#   unlink "$_";

    sleep(5);
}