while (defined ($buf = <"$message">)) {