Select Code to Download

{
   my $q;
...
   }
   print $q; # prints 42
}

for (0..1) {
   my $q;
...
   }
   print $q || "undef"; # prints 42undef
}

our $q = 54; # never actually used
for (0..1) {
...
   }
   print $q || "undef"; # prints 4242
}