Select Code to Download

#!/usr/bin/perl -w
# testpod.pl
...
=cut

print "end\n";

#!/usr/bin/perl -w
use strict;
...
for my $ARGV (@ARGV) {
    $Stripper->parse_from_file($ARGV);
}

#!/usr/bin/perl -w
use strict;

print "end\n";

#!/usr/bin/perl -w
use strict;
...
    }
    print unless $inside_pod;
}

my $var ='
=test
';

 _  _ _  _  
(_|| | |(_|><
 _|