Select Code to Download

$ perl -MO=Deparse
use constant DOFOO => 0;
...
my $DOBAR = 0;
'???';
print 'bar' if $DOBAR;

use Data::Dump;
use constant FOO => 123;
...
dd \%h;
__END__
{ 123 => "C", 456 => "D", BAR => "B", FOO => "A" }