Select Code to Download

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

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

BEGIN {
 ... read the levels that should be ON to %debug 
...
  eval "sub LVL$_ () {$debug{$_}};";
 }
}