Plotting predicted confidence intervals in a poisson regression (r)

Question

So I have a model of the form

m2<- glm(totalcha ~ envp + loconst,data=capitalcontrols,family=poisson(link="log"))

And I would li