Select Code to Download

$foo = sub {
     my $var = shift;
...
for my $bar(@quux) {
    ...
}

sub foo {
    my $ret  = bar($_[0]) * quux($_[1])
}

sub foo {
    my $ret  = bar($_[0]) * quux($_[1])
    $ret    *= 1024
}