Help for this page
binmode STDOUT, ":utf8"; my $a = __t("Patient Id"); utf8::decode( $a ); print $a,"\n";
binmode STDOUT, ":utf8"; my $a = __t("Patient Id"); decode( $a ); print $a,"\n";