#!/usr/bin/perl
my $DEBUG = 1233;
my $VERBOSE=5;
...

##</code><code>##

#!/usr/bin/perl
our $DEBUG = 1233;
our $VERBOSE=5;
...

##</code><code>##

c:\@Work\Perl\monks>perl -wMstrict -le
"{ package Foo;
   my  $foo = 'pure lexical defined in ' . __PACKAGE__;
   our $foo = 'package global of ' . __PACKAGE__;
   }
 ;;
 print 'in package ', __PACKAGE__;
 ;;
 my  $foo = 'pure lexical defined in ' . __PACKAGE__;
 my $ref_to_foo = \$foo;
 print qq{A: $foo};
 ;;
 our $foo = 'package global of ' . __PACKAGE__;
 ;;
 print qq{B: $foo};
 print qq{C: $main::foo};
 print qq{D: $Foo::foo};
 print qq{E: $$ref_to_foo};
"
in package main
A: pure lexical defined in main
B: package global of main
C: package global of main
D: package global of Foo
E: pure lexical defined in main