Select Code to Download

my $cursor = \%foo;
for(qw(foo bar)) {
...
}

print "exists\n" if $cursor;

sub exists_novivify {
    my $cursor = shift;
...
}

print "exists\n" if exists_novivify \%foo, qw(bar baz);