Select Code to Download

    $rth=$dbh->prepare("select max(id) from zen order by id") 
        or die("Can't connect: ", $dbh->errstr);
...

    $tth->execute;
    $koan = $tth->fetchrow_array;

    $tth=$dbh->prepare("select koan from zen order by rand() limit 1")
+ 
...

    $tth->execute;
    $koan = $tth->fetchrow_array;