print $q->header(-charset => 'utf-8');
my $val = $q->param('key');
print utf8::is_utf8($val); exit;