#!/usr/bin/perl
my $DEBUG = 1233;
my $VERBOSE=5;
...