use strict;
package Foo::Bar::MyClass;

our $test = "test";

package main;

print keys %{$::{'Foo::'}{'Bar::'}{'MyClass::'}};

__OUTPUT__
test