corrected perl script called by generate-pnames-fv.sh