$tth=$dbh->prepare("select koan from zen order by rand() limit 1") 
        or die("Can't connect: ",$dbh->errstr);

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