I was wondering about that when I copied the code over. My conjecture was that use vars was needed for an older version of perl, but I have no guess as to why an older perl might need it or what version of perl needs it.