is there a module for one step encoding mail header ??

Hi, All

I tried with MIME::Tools, but I just 
found there is no one step function for 
encoding the MIME mail header to utf8 or some
any language else freely.

For example, I could just encode
hz encoded header now like that :

$mime_header=?hz-gb-2312?B?fns7OVBQfn0=?=

and with 

decode_mimeword($mime_header,);

to ASCII:(or just default ISO-8859-1)

$after_mime=~{;9PP~}

and then encode it with function:

use encoding "hz",STDIN => "hz",STDOUT => "euc-cn";
decode ("hz", $after_mime);

is there any function for one step to enu-cn or all-to-one utf8 
with the head "=?ENCODE?B?MIME_CONTENT?=" ?
so that I could use one function for utf8 to enc-cn , but many
function for every code ??

Thanks, 
Jerry