use Exporter;

our @ISA = 'Exporter';
our @EXPORT = qw($VAR1 $VAR2);

our $VAR1="var1";
our $VAR2="var2";


1;

##</code><code>##


use consts;
our ($VAR1, $VAR2);

print "Import...\n"; 
print "VAR1 : [$VAR1]\n";
print "VAR2 : [$VAR2]\n";

sub logging_func() {
        print "Running function...\n";
        print "VAR1 : [$VAR1]\n";
        print "VAR2 : [$VAR2]\n";
}
         
1;

##</code><code>##

use consts;

our ($VAR1, $VAR2);

local $VAR1 = "override1";
local $VAR2 = "override2";

use logging;

logging_func();

##</code><code>##

Import...
VAR1 : [var1]
VAR2 : [var2]
Running function...
VAR1 : [override1]
VAR2 : [override2]

##</code><code>##

our $VAR1="var1";
our $VAR2="var2";

1;

##</code><code>##

use consts;
our ($VAR1, $VAR2);

print "Import...\n"; 
print "VAR1 : [$VAR1]\n";
print "VAR2 : [$VAR2]\n";

sub logging_func() {
        print "Running function...\n";
        print "VAR1 : [$VAR1]\n";
        print "VAR2 : [$VAR2]\n";
}
         
1;

##</code><code>##

use consts;

our ($VAR1, $VAR2);

#print "VAR1 : [$VAR1]\n";
#print "VAR2 : [$VAR2]\n";

local $VAR1 = "override1";
local $VAR2 = "override2";

use logging;

logging_func();

##</code><code>##

Import...
VAR1 : [var1]
VAR2 : [var2]
Running function...
VAR1 : [override1]
VAR2 : [override2]

##</code><code>##

use Exporter;

package consts;

our $VAR1="var1";
our $VAR2="var2";


1;

##</code><code>##

use consts;

print "Import...\n"; 
print "VAR1 : [$consts::VAR1]\n";
print "VAR2 : [$consts::VAR2]\n";

sub logging_func() {
        print "Running function...\n";
        print "VAR1 : [$consts::VAR1]\n";
        print "VAR2 : [$consts::VAR2]\n";
}
         
1;

##</code><code>##

use consts;

$consts::VAR1 = "override1";
$consts::VAR2 = "override2";
# OR
#local $consts::VAR1 = "override1";
#local $consts::VAR2 = "override2";

use logging;

logging_func();

##</code><code>##

Import...
VAR1 : [var1]
VAR2 : [var2]
Running function...
VAR1 : [override1]
VAR2 : [override2]