Select Code to Download

sub foo
{
...
        }
    }
}

$depth = compute_hash_depth;
$code = '...';
...
    $code = "while (my (\$k$_, \$v$_) = each \$v$prev) { $code }";
}
eval $code;