Select Code to Download

my $BigCalc;
{
...
}
...
DoSomething($BigCalc);

#!/use/bin/perl
use warnings;
...
    my $x = 4;
    print "small calc $x\n";
}