package Test;

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

$Test::DEBUG = 0;

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

print $Test::DEBUG;

1;