Проблема вот в чем:
Скрипт в utf8
Делаю так

use DBI;
use utf8;
use locale;
use POSIX qw(locale_h);
&POSIX::setlocale(&POSIX::LC_ALL, "en_US.UTF-8");
...
$s="абвгд";
print uc($s);
Работает, возводит в верхний регистр, а то, что пришло из строки запроса не возводит в верхний регистр.
Примерно это выглядит так:

$qs="";
$qs=$ENV{'QUERY_STRING'};
...
sub urldecode
{
local($val)=@_;
$val =~ tr/+/ /;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$val =~ s/<!--(.|\n)*-->//g;
$val =~ s/<([^>]|\n)*>//g;
print uc($val); здесь uc не работает хоть убейся
return $val;
}
Подскажите, пожалуйста, в чем ошибка.