# put all posts in ./msgs
open(WRITE,">msgs/$^T.txt") or die();
print WRITE "<P>",$query->param('name');
print WRITE "<P>",$query->param('subject');
print WRITE "<P>",$query->param('message');
close(WRITE);

# ... 

# and later when you're making up the page...
# sort the messages by date
foreach $msg (sort glob('msgs/*.txt')) {
  open(READ,$msg) or warn($!);
  @msg = <READ>;
  close(READ);
  print FORUM "@msg\n";
}