package First;
our $var = 1;

package Second;
$var++;
print $First::var;

##</code><code>##

package First
{
  our $var = 1;
}

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