#!perl -l

package Pkg;

our $var = 7;

print $var;            # 7

package main;

print $var;            # 7; even though we switched packages,
                       # $var still refers to $Pkg::var
                       # in this lexical scope

print $Pkg::var;       # 7