diag perl path