#!/usr/bin/perl

use strict;
use warnings;
use constant DEBUG => 0;
...
print "Let's start\n" if DEBUG;
...