use vars qw( $DEBUG );
$DEBUG = 1;