use Symbol ();

my $sym = Symbol::gensym();

print "$sym\n";