change hard-coded perl path to variable

No match.