{
    my $glob = gensym() ;
    ${*$glob} = 123 ;
    print "SCOPED: " . "${*$glob}\n" ;
  }
  print "OUT: " . ${*Symbol::GEN0} . "\n";

##</code><code>##

  use Symbol;
  print "Symbols: ", join(",",keys %Symbol::), "\n";
  {
    my $glob = gensym() ;
    ${*$glob} = 123 ;
    print "SCOPED: " . "${*$glob}\n" ;
  }
  print "OUT: " . ${*Symbol::GEN0} . "\n";
  print "Symbols2: ", join(",",keys %Symbol::), "\n";
  print "OUT2: ", ${"Symbol::GEN0"} . "\n";

##</code><code>##

Symbols: qualify,geniosym,gensym,GEN0,EXPORT,EXPORT_OK,import,ungensym,qualify_to_ref,EXPORT_FAIL,delete_package,ISA,BEGIN,VERSION
SCOPED: 123
OUT: 123
Symbols2: qualify,geniosym,gensym,EXPORT,EXPORT_OK,import,ungensym,qualify_to_ref,EXPORT_FAIL,delete_package,ISA,BEGIN,VERSION
OUT2: