do { my $sub; $sub = sub {
    print "I am $sub\n";
} }->();