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

##</code><code>##

# --- 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()->();