#!/usr/gnu/bin/perl -w
use Mail::Sender;
$mail = "address.mail"; # flat file passed from another program
        if (-e $mail) {
                open (FILE,$mail);
                @mailf = <FILE>;
                close FILE;

                $addr = $mailf[0]; # assigning mail variables
                $subj = $mailf[1]; # in the order that they
                $from = $mailf[2]; # are in the file
                $body = $mailf[3];
                $attach = $mailf[4];
                print "$addr\n $subj\n $from\n $body\n $attach\n";
                sender_mail($addr,$subj,$body,$attach);
        }
}


sub sender_mail {
        ref ($sender = new Mail::Sender ({
                from => '$addr', smtp => 'my.mailhub.com'})) # have to be carfull with the hostname.
                 || die "Mail::Sender::Error, $!";
                (ref ($sender->MailFile(
                {to =>"$addr", subject =>"$subj", msg =>"$body", file => "$attach"})))
}