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