open(INFILE, "< input.txt") or die "Failed to open input: $!\n";
open(OUTFILE, "> output.txt") or die "Failed to open output: $!\n";
binmode(OUTFILE);
while (<INFILE>) { print OUTFILE }