use strict; use warnings; use 5.012; use subs qw( say ); #Supposedly overrides a built in my $verbose = 1; sub say { if ($verbose) { print shift, " world\n"; } } say 'hello'; --output:-- hello