安装
tar -zxvf Mail-Sender-0.8.16.tar.gz
cd Mail-Sender-0.8.16
perl Makefile.PL
make && make install

[root@jishu localhost]$ cat smail

!/usr/bin/perl

use strict;
use Getopt::Std;
use Mail::Sender;
use vars qw($opt_d $opt_m $opt_f $opt_s);
getopts(‘d:m:f:s:’);
my $sender = new Mail::Sender {
smtp => ‘mail.selboo.com.cn’,
from => ‘root@selboo.com.cn’,
auth => ‘LOGIN’,
authid => ‘root@selboo.com.cn’,
authpwd => ‘1234567890’,
on_errors => undef,
} or die “$Mail::Sender::Error\n”;
$sender->MailFile({
to => $opt_d,
subject => $opt_s,
msg => $opt_m,
file => $opt_f
}) or die “$Mail::Sender::Error
Usage: $0 -d mailaddress -m mailmessage -s subject -f filename\n”;
$sender -> Close();