Select Code to Download

    sub foo { &$code }

$ perl -le '
    my $code = sub {
...
             : "scalar" };
    sub foo { &$code }
    () = foo; foo'

list
scalar