The email at the link that you've provided above is incorrectly formatted; in fact, it's broken so badly that it's not recognized by any of the several email clients that I've tried. Just for kicks, I repaired its structure (mostly indenting the continued header and MIME definition lines, but also removing blank lines and adding the 'From ' header), fixed the case error in your script (there's no such function as "Print"), and declared the variables in your sub so that they'd work with "use strict" - something you should have been using all along - at which point, it all worked fine.

Take-home message: a) Validate your data. b) Ensure that your code is vetted by both "use warnings" and "use strict". c) Pay careful attention to the error messages returned by the Perl parser, and fix them; this will take care of the majority of your problems.