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