use warnings; use strict;
our $I = "f";
$I = undef; 
open $I, '<', \3 or die "open in mem: $!";
bless \$a, 0;
$I = ref \$a;