#!/usr/bin/perl
use strict;
use Encode;
sub ToUpper {
  return<<END;
0061\t0063\t0041
END
}
# Below fails
my $tim = decode_utf8("abcdef");
# But this one works
#my $tim = decode('utf8',"abcdef");
print uc($tim),"\n";