# Named closures

{
    my $x = 0;
    sub inc_x : curry($) { $x += shift }
}

# run-time binding
sub foo : curry($);

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

##</code><code>##

sub foo : curry($);

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