my $vars = $self->query->Vars;
    while ( my($k,$v) = each %$vars ){
        next unless defined $v;
        next if $self->query->upload($k);  # uploads are binary
        next if $k eq 'auth_password';     # else MD5 crashes;
        $self->query->param(
                    -name=>$k,
                    -value=>Encode::decode_utf8($v)
                );
    }