Path fixing perl damage