This is my perl program
open(MYINPUTFILE, "<sampleinput.txt");
while(<MYINPUTFILE>)
{
my($line) = $_;
chomp($line);
$line =~ tr/[a-z]/[A-Z]/;
print "$line\n";
}
close(MYINPUTFILE);