package Foo;

use constant DEBUG => 2;

warn "something happened" if DEBUG;

warn "something interesting happened" if DEBUG > 1;