package Foo; use strict; use warnings;
local ($Foo::bar);
sub init {
    $Foo::bar = 42;
}