Select Code to Download

#!/usr/bin/perl

...
ENDCOMMENT 

print "@ARGV\n";

if (0) {
   # lots of code here that I don't want to use just now...
}

# this part is currently runnable:

...
# this part is also currently runnable...

print $foo;

perl -i.bak -pe '$_="# $_" if($.>=10 and $.<=20)' myscript.pl

perl -i.bak -pe '$_="# $_" if(/^\$foo =/../^\$bar =/)' myscript.pl