boundary="some_string" --some_string what's this eh, we need two leading -- for the boundary --some_string blah, note extra two -- on end of closing boundary below --some_string-- ##

##

use MIME::Entity;

my $html = "\n\n\n\n  This is some text\n\n\n";
my $text = "This is some text\n";

### Create the top-level, and set up the mail headers:
$top = MIME::Entity->build(Type     => "multipart/alternative",
                           From     => 'me@myhost.com',
                           To       => 'you@yourhost.com',
                           Subject  => "Hello World!");

$top->attach(Data        => $text,
             Type        => "text/plain",
             Encoding    => "quoted-printable");

$top->attach(Data        => $html,
             Type        => "text/html",
             Encoding    => "quoted-printable");

$top->print(\*STDOUT);

__DATA__
Content-Type: multipart/alternative;
    boundary="----------=_1020843667-205993-0"
Content-Transfer-Encoding: binary
MIME-Version: 1.0
X-Mailer: MIME-tools 5.316 (Entity 5.212)
From: me@myhost.com
To: you@yourhost.com
Subject: Hello World!

This is a multi-part message in MIME format...

------------=_1020843667-205993-0
Content-Type: text/plain
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

This is some text

------------=_1020843667-205993-0
Content-Type: text/html
Content-Disposition: inline
Content-Transfer-Encoding: quoted-printable

This is some text ------------=_1020843667-205993-0-- #### $message = <<"END_MESSAGE"; To: $email Reply-to: <$our_email> From: $us <$our_email> Subject: $list_name Hello $name, $message $us END_MESSAGE open ('MAIL', "|$mail_prog -t -i") or DieNice("Can't open '$mail_prog': $!\n"); print MAIL $message;