open F, '<', $in_file or die "Can't open $in_file: $!";