sub DEBUG     () { 0 }
sub FATAL     () { 4 }

sub THRESHOLD () { 0 }

log_error($msg) if FATAL >= THRESHOLD;