open (my $in,"<$file") or die "Can't open file '$file' for reading: $!";
   open (my $out,">$file.out") or die "Can't open file '$file.out' for writing: $!";