open (FH0, '<', $file) or die ...