Select Code to Download

sub say {
    print "$_\n" for @_;
...
}

sub debug_lvl { map $DEBUG{$_} = 1, @_ }

debug "this...", LVL1;
...
debug "that ..", LVL3;

DEBUG and debug "text..", LVL1 ;