#!/usr/local/bin/perl
open(MYFILE, "in.txt") ||
die ("Unable to open input file in.txt\n");
print STDERR ("File file1 opened successfully.\n");
$line = <MYFILE>;
while ($line ne "") {
	chop ($line);
	print ("\U$line\E\n");
	$line = <MYFILE>;
}
print ('press ENTER to EXIT');
$in = <STDIN>;