open(HANDLE, $filename) or die ...