use MIME::Lite;
$email='me@home.com';
$htmlMail = "";
$textMail = "texting";
my $mailObj = MIME::Lite->new(
From => 'admin@domain.com',
To => $email,
Subject => "subject line here",
Type => 'multipart/alternative'
);
$mailObj->attach(
Type => 'text/html',
Data => $htmlMail,
);
$mailObj->attach(
Type => 'text/plain',
Data => $textMail,
);
print $mailObj->as_string();
__OUTPUT__
Content-Transfer-Encoding: binary
Content-Type: multipart/alternative; boundary="_----------=_1138042047111520"
MIME-Version: 1.0
X-Mailer: MIME::Lite 3.01 (F2.72; T1.15; A1.62; B3.04; Q3.03)
Date: Mon, 23 Jan 2006 18:47:27 UT
From: admin@domain.com
To: me@home.com
Subject: subject line here
This is a multi-part message in MIME format.
--_----------=_1138042047111520
Content-Disposition: inline
Content-Length: 13
Content-Transfer-Encoding: binary
Content-Type: text/html
--_----------=_1138042047111520
Content-Disposition: inline
Content-Length: 7
Content-Transfer-Encoding: binary
Content-Type: text/plain
texting
--_----------=_1138042047111520--