Select Code to Download

use Attribute::Handlers;
use vars qw($DEBUG);
...
sub othersub :Debug(3) {
  # Do some other thing.
}

$level = $level ne '' ? $level : $DEBUG ;

$level ||= $DEBUG;