sub sqlSingleRow( $sql, @placeholders ) {
    my $sth = $dbh->prepare( $sql );
    $sth->execute(@placeholders);

    # Do you really get only ever a single row back?
    my  (@r)=$c->fetchrow();
    $c->finish();
    return @r;
}