use strict;
use warnings;
use constant VERBOSE=>0;

use if VERBOSE, feature => "say";

sub say {
   print "nothing";
}

say 'test';