Select Code to Download

#!perl -l

package Pkg;
...
                       # error with strict

print $Pkg::var;       # 7

#!perl -l

package Pkg;
...
                       # error with strict

print $Pkg::var;       # undef; $Pkg::var has not been set

#!perl -l

package Pkg;
...
                       # error with strict

print $Pkg::var;       # 7

#!perl -l

package Pkg;
...
                       # in this lexical scope

print $Pkg::var;       # 7