open my $fh_in, '<', 'input.txt' or die "could not open <input.txt> for reading: $!";
open my $fh_out, '>', 'output.txt' or die "could not open <output.txt> for writing: $!";


binmode $fh_out; 

print $fh_out $_ while <$fh_in>;







close $fh_in;
close $fh_out;