Select Code to Download

#!/usr/bin/perl -w
use strict;
while (my ($k, $v) = each %::) {
...
key is _<..\universal.c, value is *main::_<..\universal.c
key is STDERR, value is *main::STDERR
key is main::, value is *main::main::