open(MESSAGE, "+>>", \$message) or die "no message $!"; open(WHOM, ">>&=", MESSAGE) or die "no whom $!"; open (WHAT, ">>&=", MESSAGE) or die "no what $!";