Select Code to Download

sub t {
    my $sub=shift;
...
_END__
><
>1 2 3 4 5<

do { sub { print 'foo' } }->();
( sub { print 'bar' } )->();