:::::::::::::: perlexe.pl :::::::::::::: #!/usr/bin/perl use strict; use warnings; BEGIN { $perlpkg::var_our = "foo"; $perlpkg::var_my = "foo"; $perlpkg::var_lcl = "foo"; } print "\noml : $perlpkg::var_our $perlpkg::var_my $perlpkg::var_lcl\n"; require "perlpkg.pm"; $perlpkg::var_our = "bar"; $perlpkg::var_my = "bar"; $perlpkg::var_lcl = "bar"; print "oml : $perlpkg::var_our $perlpkg::var_my $perkpkg::var_lcl\n\n"; :::::::::::::: perlpkg.pm :::::::::::::: package perlpkg; our $var_our; my $var_my ; local $var_lcl; print " oml : $var_our $var_my $var_lcl\n"; $var_our = "baz"; $var_my = "baz"; $var_lcl = "baz"; print " oml : $var_our $var_my $var_lcl\n"; 1; STDOUT : oml : foo foo foo oml : foo oml : baz baz baz oml : bar bar