Select Code to Download

#!/usr/bin/perl --
use constant DEBUG => !!( 0 || $ENV{PERL_DEBUG_MYAPPNAME} );
...
sub DD {
    scalar Data::Dumper->new( \@_ )->Indent(1)->Useqq(1)->Dump;
}