Change perl script reference path