php -> perl
$query = "select distinct t.topic_id, t.topic_title from forum__posts p, forum_topics t where p.topic_id = t.topic_id order by p.post_time desc limit 10"; $result = mysql_query($query);print "
- "; while ($row = mysql_fetch_assoc($result)) { $topic_id = $row['topic_id']; $topic_title = $row['topic_title']; print "
- $topic_title "; } print "