use strict;
use warnings;
use utf8;
use feature 'say';
use URI;
use Encode 'encode';
use charnames 'cyrillic';

my $uri = URI-> new( 'http:' );

my $ascii_uid_str     = 'abc';      # whatever ascii
my $high_ascii_octets = encode( 'koi8-r', qq(\N{zhe}));
#                     = chr 214;    # (same as above)
                                    # whatever, too, but high-ascii

$uri-> query_form( $ascii_uid_str, $high_ascii_octets );
say $uri-> query;

utf8::upgrade( $ascii_uid_str );    # oops, unexpected

$uri-> query_form( $ascii_uid_str, $high_ascii_octets );
say $uri-> query;


__END__

abc=%D6
abc=%C3%96