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