package First { our $var = 1; } package Second { $var++; #doesn't work under strict print $First::var; }