::::::::::::::
pkgs.pm
::::::::::::::
package pkgs;
use strict;
our $VAR="XXX";

package pkg1;
our $VAR="YYY";

package pkg2;
our $VAR="ZZZ";

1;


::::::::::::::
#!/tool/pandora/bin/perl -w
use strict; 
use warnings; 

use pkgs;


print "\n";
print "pkgs = ", $pkgs::VAR, "\n";
print "pkg1 = ", $pkg1::VAR, "\n";
print "pkg2 = ", $pkg2::VAR, "\n";
print "\n";

no strict "refs";
$pkgs::VAR = "00";
my $name = "pkg1";
${ $name . "::VAR" } = 11;
$name = "pkg2";
my $pvar = ${ $name . "::VAR" };
print "+++ $pvar\n";
$pvar = 22;print "pkgs = ", $pkgs::VAR, "\n";

print "pkg1 = ", $pkg1::VAR, "\n";
print "pkg2 = ", $pkg2::VAR, "\n";
print "\n";
use strict "refs";