use MIME::WordDecoder;

    #so ?
    ### Construct:
#    $wd = new MIME::WordDecoder::ISO_8859 2;    ### ISO-8859-2

#oder so ? :
### Get the default word-decoder (used by unmime()):
    $wd = default MIME::WordDecoder;


    ### What to translate unknown characters to (can also use empty):
    ### Default is "?".
    $wd->unknown("_");

my $fname = $wd->decode($head->recommended_filename);