use strict;
use warnings;

my $debug = 1;
use if $debug, "Data::Dumper";

my $var = "Hallo";
print Dumper \$var;