open (IN, "<$in_file") or die "Can't open $in_file: $!";