Select Code to Download

my $sub;
$sub = sub{print"hello\n";return $sub};
$sub->();
print "$sub\n";
$sub->()->();

# --- Make a lexical block
{
...
my $x = &hello;
print "address of hello is <$x>\n";
&hello()->();