note
ysth
What perl version is this?
<p>
Shot in the dark: replace the <c>use vars</c> with our() declarations.
<p>
Also, I know this isn't your script, but <c>use warnings</c> is <i>even more important</i> than <c>use strict</c>.
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-299049">
<small>-- <br />
A math joke: r = | |csc(θ)|+|sec(θ)|-||csc(θ)|-|sec(θ)|| |<br />
[http://ysth.info/fortune/|Online Fortune Cookie Search]<br />
[http://ysth.info/initech/|Office Space merchandise]
</small>
</div></div>
852384
852422