Select Code to Download

package First;
our $var = 1;

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

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