C:\Dokumente und Einstellungen\Administrator>perl
package XYZ;
our $Var = 20;
while (($x, $y) = each %::) {
  print "$x => $y\n";
}
print "-------------------\n";
while (($x, $y) = each %XYZ::) {
  print "$x => $y\n";
}
^D
... gekuerzt fuer main
-------------------
... gekuerzt: XYZ
Var => *XYZ::Var