use Debug (1);
use Debug (0, DBG_SPECIAL);

DEBUG { warn "First type\n"; };
DBG_SPECIAL { warn "Second type\n"; }