What perl version is this?

Shot in the dark: replace the use vars with our() declarations.

Also, I know this isn't your script, but use warnings is even more important than use strict.