{
  package ding::dong;
  $x=1
}
 
$\="\n";
 
print $ding::dong::x;                       # prints 1
 
print $main::{"ding::"};                    # *main::ding::
 
print $main::{"ding::"}->{"dong::"};        # *ding::dong::
 
print $main::{"ding::"}->{"dong::"}->{x};   # *ding::dong::x