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

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

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

##</code><code>##

while (my $line = <MESSAGE>) {
    print $line;
    $text .= $line;
}

print $text;