package Variables;
use v5.20;

our %V;

sub import
{
  shift;
  my $package = caller;
  no strict "refs";
  for my $var (@_)
  {
    *{"$package::$var"} = sub:lvalue { @_ ? $_[0]->($V{$var}) : $V{$var} };
  }
}
1;