Altho I deny all responsibility if this gets abused, you could look at Being lazy with MIME::Lite :)

Greetz
Beatnik
... Quidquid perl dictum sit, altum viditur.