foreach( $msg_num = $msg_count -1; $msg_num >= 0; $msg_num--){
   foreach( $i = 0; $i < @messages; $i++){
      $sth = $dbh->prepare("select $messages[$i] from messages limit $msg_num, 1");
      $sth->execute;
      $messageval[$i] = $sth->fetchrow_array;
      $sth->finish;
   };
   $from       = $messageval[0];
   $date       = $messageval[1];
   $subject    = $messageval[2];
   $message    = $messageval[3];
   $msg_id     = $messageval[4];
   $message    =~s/(\r\n|\n\r|\r)/<BR>\n/g;
   $message    =~s/\n{3,}/\n\n/g;
   print "<TR><TD>\n";
   print "Date: $date<BR>\nFrom: $from<BR>\nSubject: $subject<BR>\nMessage:<BR>\n$message<BR>\n";
   print "<FORM METHOD='POST' ACTION='mb_post.pl'>\n";
   print "<INPUT TYPE='HIDDEN' NAME='MSG_ID' VALUE='$msg_id'>\n";
   print "<INPUT TYPE='HIDDEN' NAME='FROM' VALUE='$from'>\n";
   print "<INPUT TYPE='HIDDEN' NAME='DATE' VALUE='$date'>\n";
   print "<INPUT TYPE='HIDDEN' NAME='SUBJECT' VALUE='$subject'>\n";
   $message    = $messageval[3];
   $message    =~s/(\r\n|\n\r|\r)/\n/g;
   print "<INPUT TYPE='HIDDEN' NAME='MESSAGE' VALUE='$message'>\n";
   print "<INPUT TYPE='SUBMIT' NAME='REPLY' VALUE='Reply'>\n</FORM>";
   print "</TD></TR>\n";
};