package Test;

our $DEBUG = 0;

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

print $DEBUG;

1;