Select Code to Download

sub rtn_closure {
...
print $g->(), "\n"; # Prints 10
print $g->(), "\n"; # Prints 11
print $f->(), "\n"; # Prints 7

sub exec_callback {
...
}

exec_callback(sub {print "hello\n"});