$fname= decode('MIME-EncWords',$subentity->head->mime_attr('content-type.name'));

##</code><code>##

Use of uninitialized value $str in scalar assignment at /usr/share/perl5/vendor_perl/Encode/MIME/EncWords.pm line 61.
Use of uninitialized value $str in pattern match (m//) at /usr/share/perl5/vendor_perl/Encode/MIME/EncWords.pm line 62.