#!/usr/bin/perl -w
use strict;

package foo;
use vars qw($var);
$var = 'FOO';
print "package foo: $var\n";

package bar;
use vars qw($var);
$var = 'BAR';
print "package bar: $var\n";

package main;
{
    no strict 'refs';    # *cough cough*
    my $pack = 'foo';
      my $var  = 'var';
    print "(main) package foo: ${$pack . '::' . $var}\n";
    $pack = 'bar';
    print "(main) package bar: ${$pack . '::' . $var}\n";
}
[download]