Help for this page
sub t { my $sub=shift; ... _END__ >< >1 2 3 4 5<
do { sub { print 'foo' } }->(); ( sub { print 'bar' } )->();