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

use vars qw( $qux $quo $zip );

$foo = 1;
$bar = 2;
$baz = 3;
$qux = 4;
$quo = 5;
$zip = 6;

sub hello {
  print "Hello, World!\n"
}

##</code><code>##

#!/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";
}