Select Code to Download

$a = "a";
EnclosingBlock: { my $a = "b"; print $a; };
print $a;

$var = 'a';
{
...
#at end of scope
    $var = $tmp;
}