use MIME::Words qw(:all);

    my $rawSub = $head->get( 'subject' );
    
    my $mailSubject = decode_mimewords( $rawSub );