Select Code to Download

    my $vars = $self->query->Vars;
    while ( my($k,$v) = each %$vars ){
...
                    -value=>Encode::decode_utf8($v)
                );
    }