use strict;
use warnings;
our $VAR=5.0;
sub printit{print "Package Main VAR=$VAR\n";}
package A;
our $VAR=2.0;
sub printit{print "Package A VAR=$VAR\n";}
package B;
our $VAR=3.0;
sub printit{print "Package B VAR=$VAR\n";}
package C;
our $VAR=4.0;
sub printit{print "Package C VAR=$VAR\n";}
package main;
$VAR="foo";
A::printit;
B::printit;
C::printit;
printit;
print "Package Main VAR=$VAR\n";
print <<EOH;
A:        $A::VAR
B:        $B::VAR
C:        $C::VAR
main:     $main::VAR
whatever: $VAR
EOH
__END__
Package A VAR=2
Package B VAR=3
Package C VAR=foo
Package Main VAR=5
Package Main VAR=foo
A:        2
B:        3
C:        foo
main:     5
whatever: foo