Please don't go round reinventing things for no good reason. The MIME-tools bundle of modules contains everything that you'll need.

"The first rule of Perl club is you don't talk about Perl club."