package lvals {
  sub import {
    shift;
    no strict 'refs';
    *{caller.q(::).$_} = do{ my $x; sub () :lvalue {$x} } for @_;
  }
}
1;