change hard-coded perl path to variable