#!/usr/local/bin/perl
unless (open(MYFILE, "in.txt")) {
	die ("cannot open input file file1\n");
}
@input = <MYFILE>;
print (@input);

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