update perl user role