use Config ();

sub gensym () {
    my $id = $Config{useithreads} ? threads->tid . '-' : '';
    my $name = "GEN$t" . $genseq++;
    my $ref = \*{$genpkg . $name};
    delete $$genpkg{$name};
    $ref;
}