Select Code to Download

$ourVAR = "123 ABC";
  {
...
__END__
my  packAA  ourVAR = 456 RST
our packAA  ourVAR = 123 ABC

package Foo;
our $foo = 'bar';

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

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

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

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