$message  = join('|', $usertype, $username, $date, $comments);
$message .= "\n";

open ("post", "/absolute/path/to/file") or print error;
print post $message;
close (post);

##</code><code>##

open ("post", "/absolute/path/to/file") or print error;
@post = <post>;
close (post);

  foreach (@post) {
   ($usertype, $username, $date, $comments) = split ('[|]',$_);
   
   if ($readtype eq $usertype) {
       print qq|
          From $username ($date):<p>

          $comments<p>
         ______________________________________<br>
       |;
 }
}