f=Integrate[Exp[I*p*r]/p^2,{p,e,Infinity}]
g=Integrate[Exp[I*p*r]/p^2,{p,-Infinity,-e}]
