binmode STDOUT, ":utf8";

my $u = __t("Patient Id");
utf8::decode( $u );
print $u,"\n";