Select Code to Download

my $f = sub { return 'a sub' };
print "\$f is ${\$f->()}\n";
...
__output__

$f is a sub

my $f = sub { return 'a sub' };
# list
...
# save return
my $ret = $f->();
print "\$f is $ret\n";