use consts; our ($VAR1, $VAR2); #print "VAR1 : [$VAR1]\n"; #print "VAR2 : [$VAR2]\n"; local $VAR1 = "override1"; local $VAR2 = "override2"; use logging; logging_func();