Manipulate the plot does not give the appropriate plot?

Manipulate[Plot[100[x]^ 2 / (T ^ 4 (Exp[x/T] + 1)), {x, 0, 30}

, {T, 1, 4}]