use strict;
use warnings;

package Foo;

local $bar;  

sub init {
    $bar = 42;  
}

1;