package My::WunderCode;
BEGIN {
    if(  $ENV{DEBUG_MY_WUNDERCODE}  ) {
        eval "sub debug() { !1 }";
    } else {
        eval "sub debug() { 1 }";
    }
    die $@   if  $@;
}
warn "Debugging ",__PACKAGE__,"...\n"   if  debug;