Select Code to Download

$ cat deb.pl
#!/usr/bin/perl
...

print "debug statment\n" if FOO_DEBUG_MODE;
print "done!\n";

$ perl -MO=Deparse deb.pl
use Getopt::Long;
...
'???';
print "done!\n";
deb.pl syntax OK

$ perl -MO=Deparse deb.pl -debug
use Getopt::Long;
...
print "debug statment\n";
print "done!\n";
deb.pl syntax OK