Help for this page

Select Code to Download

Select or download this

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

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

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

Select or download this

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

print $text;