Select Code to Download

sub huge_function {
    my $many, $variables, ...;
...

    # do something else
}

{
    my $many, $variables, ...;   # accessible inside all closed over s
+ubs here
...
    }

}