use v5.12;
use warnings;

BEGIN{
  package log;
  our $var= "default";

  sub tst { say $var }
  
  # export
  *::var = *var;
  *::tst = *tst;
}


package main;
our $var;
{
  local $var = "foo";
  tst();
}

tst();
 
##</code><code>##

perl local_import_var.pl
foo
default  
##</code><code>##

perl local_import_var.pl
default
default