perlfunc root <P> Symbol - manipulate Perl symbols and their
names <P> <HR> <P> <PRE> use Symbol; </PRE> <P> <PRE> $sym =
gensym; open($sym, &quot;filename&quot;); $_ = &lt;$sym&gt;; #
etc. </PRE> <P> <PRE> ungensym $sym; # no effect </PRE> <P>
<PRE> print qualify(&quot;x&quot;), &quot;\n&quot;; <P>
<CODE>Symbol::gensym</CODE> creates an anonymous glob and
returns a reference to it. Such a glob reference can be used as
a file or directory handle. <P> For backward compatibility with
older implementations that didn't support anonymous globs,
<CODE>Symbol::ungensym</CODE> is also provided. But it doesn't
do anything. <P> <CODE>Symbol::qualify</CODE> turns unqualified
symbol names into qualified variable names (e.g. ``myvar'' -&gt;
``MyPackage::myvar''). If it is given a second parameter,
<CODE>qualify</CODE> uses it as the default package; otherwise,
it uses the package of its caller. Regardless, global variable
names (e.g. <FONT SIZE=-1>``STDOUT'',</FONT> <FONT
SIZE=-1>``ENV'',</FONT> <FONT SIZE=-1>``SIG'')</FO