Time[expr] evaluates the given expression with printing the timing of the evaluation in the real time.

Time.m

(*
 * Evaluates the given expression with printing the timing in the real time.
 *)
Time[expr_] := Module[{t, r},
  {t, r} = AbsoluteTiming[expr];
  Print["Elapsed time: ", t, " seconds."];
  r
];
SetAttributes[Time, HoldFirst];