#!/usr/bin/perl -w
use strict;
while (my ($k, $v) = each %::) {
  print "key is $k, value is $v\n";
}

key is STDOUT, value is *main::STDOUT
key is @, value is *main::@
key is ARGV, value is *main::ARGV
key is STDIN, value is *main::STDIN
key is , value is *main::
key is attributes::, value is *main::attributes::
key is DB::, value is *main::DB::
key is _<..\xsutils.c, value is *main::_<..\xsutils.c
key is _<perllib.c, value is *main::_<perllib.c
key is UNIVERSAL::, value is *main::UNIVERSAL::
key is , value is *main::
key is <none>::, value is *main::<none>::
key is DynaLoader::, value is *main::DynaLoader::
key is , value is *main::
key is Win32::, value is *main::Win32::
key is BEGIN, value is *main::BEGIN
key is stderr, value is *main::stderr
key is INC, value is *main::INC
key is _, value is *main::_
key is ", value is *main::"
key is _<.\win32.c, value is *main::_<.\win32.c
key is $, value is *main::$
key is stdout, value is *main::stdout
key is IO::, value is *main::IO::
key is ENV, value is *main::ENV
key is strict::, value is *main::strict::
key is stdin, value is *main::stdin
key is CORE::, value is *main::CORE::
key is /, value is *main::/
key is 0, value is *main::0
key is _<..\universal.c, value is *main::_<..\universal.c
key is STDERR, value is *main::STDERR
key is main::, value is *main::main::