use Mail::Sender;


        $sender = new Mail::Sender {
                smtp => 'smtp.server',
                from => 'email address',
                on_errors => undef,
        }
                or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";
        $sender->OpenMultipart({
                to => 'emailaddress1, emailaddress2',
                cc => 'emailaddress3',
                subject => 'Log files.'
        })
                or die "Can't open the message: $sender->{'error_msg'}\n";
        $sender->SendLineEnc("This is todays log files
                ");
        $sender->SendLineEnc("\nHI, J");
        $sender->Attach(
                        {description => 'Daily log',
                 ctype => 'text/plain; charset="us-ascii"',
                 encoding => '7bit',
                 disposition => 'attachment; filename="textfile.txt"',
                 file => 'textfile.txt'
                 });

        $sender->Close()
                or die "Failed to send the message: $sender->{'error_msg'}\n";

        if ($@) {
                 print "Error sending the email: $@\n";
        } else {
                 print "The mail was sent.\n";
        }