Select Code to Download

my $BigCalc = do {
    my $SmallCalc;
....
    $smallCalc;
};

{ lock $fred; $fred = 3; }

{
    my $var;
...
        ...
    }
}