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