#!/usr/local/bin/perl
unless (open(MYFILE, "in.txt")) {
#	print ("cannot open input file in.txt\n",'press ENTER to EXIT');
#	$in = <STDIN>;
	die ("cannot open input file file1\n");
}
# if the program gets this far, the file was
# opened successfully
$line = <MYFILE>;
while ($line ne "") {
	print ($line);
	$line = <MYFILE>;
}

print STDERR ('press ENTER to EXIT');
$in = <STDIN>;