open(MESSAGE, '+>>', \$message) or die "no message $!";