Select Code to Download

$sensitive_code = eval 'sub {
    my ($foo,$bar,$baz) = @_;
...
    return;
}';
$sensitive_code->("charanga","Boom","BANG");