#!/usr/bin/perl -w
use strict;

use constant DEBUG => 1;

print "this is debug" if DEBUG;