#!/usr/bin/perl -w

use strict;

for my $pkg (@ARGV) {
    eval "use $pkg;";
    no strict 'refs';
    my @candidates = keys %{$pkg . "::"};
    for my $c (@candidates) {
	if (defined(${$pkg . "::" . $c})) {
	    print "$pkg" . "::" . "$c = " . ${$pkg . "::" . $c}, "\n"; 
        }
    }
}