I thought, maybe, for good measure, this patch also

@@ -820,7 +820,7 @@

 # put a filehandle into binary mode (DOS)
 sub binmode {
-    return unless defined($_[1]) && defined fileno($_[1]);
+    return unless defined($_[1]) && ref ($_[1]) && defined fileno($_[
+1]);
     CORE::binmode($_[1]);
 }
[download]

But this fix might trigger other bugs

Needs more extensive testing :/