package Foo;
use strict;
use warnings;

local our $V;

sub print_v{
  print $V."\n";
}
1;

package main;
use strict;
use warnings;

$Foo::V = 'Blabla';

print $Foo::V."\n";
Foo::print_v();