use POSIX; sub round { floor($_[0] + 0.5) }