Plot[ {100, 100 * (2 + 15 (Re[ 1/4 * 1/x^4 - 1/x^3 Log[ Exp[ 1/x ] - 1 ] - 3/x^2 PolyLog[ 2, Exp[ 1/x ] ] + 6/x PolyLog[ 3, Exp[ 1/x ] ] - 6 PolyLog[ 4, Exp[ 1/x ] ] ]) / (Pi)^4)}, {x, 0.01, 1.0} ]