... #my $debug = "true"; print "Let's start\n" if $debug; ... #### #!/usr/bin/perl use strict; use warnings; use constant DEBUG => 0; ... print "Let's start\n" if DEBUG; ...