use strict;
use warnings;

my $debug;

BEGIN {
  $debug = 0;
}

use if $debug, "Data::Dumper";

my $var = "Hallo";

if($debug) {
   no warnings;
   print Dumper \$var;
} else {
   print $var;
}