-#!/l/local/bin/perl -w
+#!/usr/bin/perl -w
$pat = '';
# construct word list
curstackinfo
curstash
curstname
-curthr
dbargs
debdelim
debname
errgv
error_count
euid
-eval_cond
-eval_mutex
-eval_owner
eval_root
eval_start
evalseq
nice_chunk_size
ninterps
nomemok
-nrs
-nthreads
-nthreads_cond
numeric_local
numeric_name
numeric_standard
subname
sv_arenaroot
sv_count
-sv_mutex
sv_no
sv_objcount
sv_root
sv_undef
sv_yes
-svref_mutex
sys_intern
tainted
tainting
thisexpr
thr_key
-threadnum
-threads_mutex
-threadsv_names
-thrsv
timesbuf
tmps_floor
tmps_ix