#!/usr/bin/perl -s use warings use strict; #### use vars $d; #### use vars qw/$d/; print "Debugging message..." if $d;