Welcome perl_dan,

Quickly before anyone else sees your unformatted code, put code tags around the script and update. You'll get a lot more positive answers.

#!/usr/bin/perl 
use 5.010;
use Email::MIME;
my $message = Email::MIME->create( header_str => ...
[download]

Regards...Ed