or download this
#!perl
...
$sth = $dbh->prepare( "SELECT replies.*, date_format(date, '%c/%e/
+%Y/%r') AS nicedate, forums.name FROM messages, forums WHERE replies.
+forum = forums.id and (replies.id=? OR thread_id=?) ORDER BY thread_i
+d, date" ) or dbdie();
$sth->execute( $msg_id, $msg_id);
}