Example code:

    my $sym = Devel::Symdump->new('Foo');
    my @scalars = $sym->scalars;

    for my $s (@scalars) {
        # do something
    }
[download]

    my $class = 'Foo';
    while (my($key, $val) = each %{"${class}::"}) {
        local(*ENTRY) = $val;

        # $key is the name of the symbol table entry,
        # and *ENTRY is the value--the glob. You can,
        # for example, look at *ENTRY{CODE} to see
        # if there's a sub called $key.
    }
[download]

for $name (keys %::) 
{ 
  eval 'my $val = '.$name.';';
}
[download]

Jeroen
"We are not alone"(FZ)

Using eval is overkill in this case. It is more efficient and probably more straightforward to disable strict 'refs' and use symbolic reference to extract a variable's value from the symbol table:

for $name (keys %::) 
{ 
  no strict 'refs';
  $val = $$name;
}
[download]

   MeowChow                                               
                print $/='"',(`$^X\144oc $^X\146aq1`)[-2]

If you remember that %main:: is a hash of globs, then a simple derefence works, doesn't worry strict and allows you to get all types of vars. But you may only want scalars, and not a scalar version of almost everything.

for (keys %main::) {
    $val = ${ *{ $main::{$_} }{SCALAR} };
}
[download]

Sure, but take care when you have constants declared. You can't extract them using dereferecing. See Re: Get your system configuration from a man page..

Jeroen
"We are not alone"(FZ)