open IN, '<', $file or die ...