package Foo;
use strict;

use vars qw/$DEBUG/;

our $DEBUG;

$Foo::DEBUG=1;