#!perl -l

package Pkg;

{
  our $var = 7;

  print $var;          # 7
}

print $var;            # 7
                       # error with strict

package main;

print $var;            # undef; $main::var has not been set
                       # error with strict

print $Pkg::var;       # 7