perl -MSymbol -MData::Dumper -wE '
{my $x=gensym; print Dumper $x};
{my $y=gensym; print Dumper $y};
my $z=gensym; print Dumper $z;
print $x, $y'