#!/usr/bin/perl
use MIME::QuotedPrint;
use MIME::Base64;
use Mail::Sendmail 0.75;

%mail = (
        SMTP => $SMTPSERVER,
        from => $SENDER,
        to => $RECP,
        subject => $Subject,
        );

$boundary = "====" . time() . "====";
$mail{'content-type'} = "multipart/mixed; boundary=\"$boundary\"";
$message = encode_qp( "Text of message");
$file = 'message.txt'; # This is the file name
$mail{body} = encode_base64(
$message
);

$boundary = '--'.$boundary;
$mail{body} = <<END_OF_BODY;
$boundary
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

$message
$boundary
Content-Type: application/octet-stream; name="$file"
Content-Transfer-Encoding: base64
Content-Disposition: attachment; filename="$file"

$mail{body}
$boundary--
END_OF_BODY
sendmail(%mail) || print "Error: $Mail::Sendmail::error\n";