open my $FH_infile,  '<', "$in_file"  or die "Can't open $in_file";
open my $FH_outfile, '>', "$out_file" or die "Can't open $out_file";