Plot[-I m (EllipticE[1 - 1/m^2] - EllipticE[ArcSin[m/Sqrt[-1 + m^2]], 1 - 1/m^2]), {m, 1 + 10^-6, 4}, GridLines -> Automatic]