open my $fh, '<', $in_file or die "Error: can not open file $in_file $!";