Select Code to Download

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

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