DB<80> package ABC::Foo; our $User='talexb'

##</code><code>##

  DB<81> use strict;print ${ $main::{"ABC::"}{"Foo::"}{User} }
talexb


##</code><code>##

  DB<82> use strict; no strict 'refs'; print ${ 'ABC::Foo::User' }
talexb


##</code><code>##

  DB<99> use strict;print ${ $ABC::{"Foo::"}{User} }
talexb