package First; our $var = 1; package Second; $var++; print $First::var;