$int = sprintf "%d", ( $num + 0.5 ) ;