in reply to Multipart/Alternative
Oh, and to actually answer your non-perl question :), I think you need to doublequote the boundary string in the header. And I'm darn certain that "===" isn't a good idea for a string.
If I were you, I'd make it a _lot_ uglier.
$you = new YOU;
honk() if $you->love(perl)