#!/usr/bin/perl
use strict;
sub ToUpper {
  return<<END;
0061\t0063\t0044
END
print "Here we are\n";
}
my $tim = "abcdef";
my $t2 = uc($tim);
print "$t2\n";