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

use vars qw( $foo $bar $baz );

require 'foobarbaz.pl';

# OK, but need package name for $qux, $quo, $zip
print "$_\n" foreach( $foo, $bar, $baz, $::qux, $::quo, $::zip );

hello(); # fine

#print $qux;     ## XXX gives an error

while (my ($k,$v) = each %:: ) {
  print $k . ":\t\t" . $v . "\n";
}