use vars qw/$d/;

print "Debugging message..." if $d;