package Test;

use vars qw( $DEBUG $option %hash );

$DEBUG = 0;

%hash = (a => "Ah", );

print  $DEBUG;

1;