diff --git a/lib/Safe.pm b/lib/Safe.pm
index 33c4d2ddb13..4199effec1b 100644
--- a/lib/Safe.pm
+++ b/lib/Safe.pm
@@ -29,6 +29,8 @@ module Safe {
         $P0['run']  = $P1
         $P0['open'] = $P1
         $P0['!qx']  = $P1
+        null $P1
+        set_hll_global ['IO'], 'Socket', $P0
     }
 }