use strict;
use warnings;

package Foo;

my $bar;  

sub init {
    $bar = 42;  
	print $bar;
}

1;