#!/usr/local/bin/perl
#open(F,">out.txt");
unless (open(INFILE, "in.txt")) {
	print ("cannot open input file in.txt\n",'press ENTER to EXIT');
	$in = <STDIN>;
	die ("cannot open input file in.txt\n");
}
unless (open(OUTFILE, ">out.txt")) {
	print ("cannot open input file out.txt\n",'press ENTER to EXIT');
	$in = <STDIN>;
	die ("cannot open output file out.txt\n");
}
$line = <INFILE>;
while ($line ne "") {
	print OUTFILE ($line);
	$line = <INFILE>;
}

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