$sql='select oid,time';
$sql.='from clock';
$sql.='order by time';
$exec=$dbh->prepare($sql);
$exec=$dbh->execute()||die "Query Failed\n$sql\nError:\n$DBI::errstr";
while ($res=$exec->fetch) {
    $latest_oid=${$res}[0];
}