Select Code to Download

$FH = "a scalar";
@FH = qw/an array/;
...
bar
baz
quux

$main::FH = 'a string';
print "nope" if not defined *FH{IO};
...
__output__

nope