Select Code to Download

# Named closures

...
BEGIN {
    *foo = sub { print "@_\n" }
}

sub foo : curry($);

my $ref = foo();
$ref->('hello');