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