Select Code to Download

my $val;
sub canmod : lvalue {
     $val;
...
sub nomod {
     $val;
}

my %foo;
my $bar;

...
            : $foo{$key} = undef
       : $bar;
}