BEGIN { our $DEBUG = 1 } use if $DEBUG, Data::Dumper; # ... #### BEGIN { sub DEBUG {1} } use if DEBUG, Data::Dumper; # ...