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