This is a frequently asked question around here. Had you bothered to use Super Search, you would have found a large number of discussion on this subject. The advice you'd get from all these nodes is "use the MIME::Lite module or the MIME-Tools bundle of modules - get them from CPAN".

"Perl makes the fun jobs fun
and the boring jobs bearable" - me