open(IN, $file) or die "The file $file". "is not present.\n";