use constant DEBUG => 1;

debug("\$variable = $variable");

sub debug {
    return unless DEBUG >= 1;
    print 'DEBUG: ', @_, "\n";
}