my $sth = $state->{'DBH'}->prepare('SELECT quote,author FROM quotes ORDER BY RAND(?) LIMIT 1');
   $sth->execute(rand(10000));
   my $row = $sth->fetchrow_arrayref;
   $sth->finish;