Select Code to Download

{
    my $bar;
...
    }
    print $bar;
}

sub test
{
...

my $foo = 1;
print test($foo);

use strict;

...
}
print $Strange::bar || "false";