Select Code to Download

print "before\n";
...
=cut

print "after\n";

perl -Mdebug=MIDDLE test.pl

perl -Mdebpod=debug,MIDDLE test.pl

# or, if I change my mind about the tag,

perl -Mdebpod=begin,MIDDLE test.pl

print "before\n";

...
=cut

print "after\n";