#!/usr/local/bin/perl
unless (open(INFILE, "file1")) {
die ("cannot open input file file1\n");
}
unless (open(OUTFILE, ">outfile")) {
die ("cannot open output file outfile\n");
}
$line = ;
while ($line ne "") {
print OUTFILE ($line);
$line = ;
}