#!/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();