Hi, I would consider using MIME::Entity to make that first part with all the email info less ugly. For example:

use strict;
use warnings;
use MIME::Entity;

my $top = MIME::Entity->build(Type=>"multipart/mixed",
From => "myemail\@bng.org\n",
To  =>   "Emyemail\@crf.org\n",
Subject => "Most amazing email ever "

$top->attach (
     ...# stuff here, refer to documentation of MIME::Entity
     );
open MAIL, "|/usr/sbin/sendmail -t";
$top->print(\*MAIL);
close MAIL;
[download]