Select Code to Download

use Foo::Test;
my $x = 'Foo::Test'
my @syms = do {
    no strict 'refs';
    keys %{$x . '::'};
};