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

["Temp" <TeMp@tl165.net>]

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