use feature 'say';
unless ($verbose) {
	no feature 'say';
        #say 'this goes unsayable';
}
say 'said';

##</code><code>##

use feature 'say';
undef &say;
*say = \&not_say;
say 'test';
sub not_say {
	print 'not saying';
}

##</code><code>##

use feature 'say';
use Sub::Delete;
delete_sub 'say';
say 'testing';