Select Code to Download

sub gensym () {
    my $name = "GEN" . $genseq++;
...
    delete $$genpkg{$name};
    $ref;
}

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

SCOPED: 123
OUT: 123