NIntegrate[Sqrt[1 + D[E^(-x*x), x]^2], {x, 0, 1}]