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

open(WHOM, ">>", "&=MESSAGE") or die "no whom $!";

open (WHAT, ">>", "&=MESSAGE") or die "no what $!";