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