heh. Heres an idea. First run a perl script to generate a Set containing all of the variables declared in your script. (<code>@set = m/(
+)/g<code> maybe..). Then delete all of the variables in the script and run it again under use strict. Create another Set containing all the variables strict complains about, then do a simple set intersection!
(Ok, this probably wouldn't work. But it's a nice idea!)