Assuming there's a closing ^ somewhere, I don't see any Perl errors in the code. After all, all you have are print statements.

I'd prefer to use a single here doc, but that's another issue.

Now, whether you are using the correct MIME format, I don't know. I presume that if you aren't using a module for it, you know the MIME format better than I do.

Abigail
-- 
What has happened to the times when email was plain text, and nothing more than plain text?