package Test;

$DEBUG = 0;

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

print $DEBUG;

1;