- or download this
boundary="some_string"
...
blah, note extra two -- on end of closing boundary below
--some_string--
- or download this
use MIME::Entity;
...
------------=_1020843667-205993-0--
- or download this
$message = <<"END_MESSAGE";
To: $email
...
open ('MAIL', "|$mail_prog -t -i") or DieNice("Can't open '$mail_prog'
+: $!\n");
print MAIL $message;