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