#!/usr/bin/perl

use constant DEBUG_ON => 1;
use constant DEBUG_OFF => 0;

use vars qw( $DEBUG );

$DEBUG = ( $opt_d eq "y" ) ? DEBUG_ON : DEBUG_OFF;