Select Code to Download

    my $sym = Devel::Symdump->new('Foo');
    my @scalars = $sym->scalars;
...
    for my $s (@scalars) {
        # do something
    }

    my $class = 'Foo';
    while (my($key, $val) = each %{"${class}::"}) {
...
        # for example, look at *ENTRY{CODE} to see
        # if there's a sub called $key.
    }