You may want to see Mail::Sender:

# example from the module docs:
use Mail::Sender;
eval {
(new Mail::Sender {on_errors => 'die'})
        ->OpenMultipart({
            smtp    => 'destination.mail.server',
            to      => 'destination_email_addr',
            subject => 'your subject',
            from    => 'source_email_addr'
        })
        ->Body({ msg => <<'*END*' })
Could anybody pleassss send ma any sample scrip
using Mail::Mailer and send mail. Sending mail form on NT.
Massege is coming from Html page. Its urgent plssss thanks
  _End_ of letter
*END*
        ->Attach({
           description => 'Perl module Mail::Sender.pm',
           ctype       => 'application/x-zip-encoded',
           encoding    => 'Base64',
           disposition => 'attachment; filename="Sender.zip"; type="ZI
+P archive"',
           file        => 'c:\boot.ini'
        })
        ->Close();
} or print "Error sending mail: $@\n";
[download]