sub test {
    my $self = shift;
    my $class = ref($self) || $self;
    local $Name;
    {
      no strict 'refs';
      *Name = \${"$class\::Name"};
    }
    print $Name;
}