subst p: \perl\bin