$ourVAR = "123 ABC";
  {
    my $ourVAR = "456 RST";
    print "my  packAA  ourVAR = $ourVAR \n";
  }
print "our packAA  ourVAR = $ourVAR \n";
__END__
my  packAA  ourVAR = 456 RST
our packAA  ourVAR = 123 ABC

##</code><code>##

package Foo;
our $foo = 'bar';

package main;
print $foo,"\n";   # bar

##</code><code>##

# file foo.pl
use strict;
our $shared = "one fish";

##</code><code>##

# file bar.pl
use strict;
our $shared =~ s/e f/e half f/;

##</code><code>##

#/usr/bin/perl
use strict;
our $shared;
require "foo.pl";
require "bar.pl";
print $shared,"\n";
__END__
one half fish