#!/usr/bin/perl
use strict;
use Encode;
sub ToUpper {
    print "Here we are\n";
  return<<END;
0061\t0063\t0041
END
}
#my $tim = "abcdef";
my $tim = Encode::decode('utf8',"abcdef");
my $t2 = uc($tim);
print "[$t2]\n";