Here's an idea:

sub say {
    print "$_[0]\n";
}

sub moan {
    print STDERR "WARNING: $_[0]\n";
}

sub mutter {
    print "debug: $_[0]\n";
}

if (!$DEBUG) {
    eval "sub mutter { }";
}
[download]

Then the code reads well too :-)