use strict;

sub test {
   my $f = "boot";
   local *tmp = \$f;
   print("$tmp\n");  # boot
   our $tmp = "loop";
   print("$tmp\n");  # loop
   test2();
   print("$tmp\n");  # loop
}

sub test2 {
  #$tmp = "test2 did it";            # XXX strict error
   my $tmp = "test2 did it";         # lex var alternative
   local our $tmp = "test2 did it";  # pkg var alternative
}

test();