Select Code to Download

sub sqlSingleRow( $sql, @placeholders ) {
    my $sth = $dbh->prepare( $sql );
...
    $c->finish();
    return @r;
}

    my $sql_cat = <<'SQL';
        select ref_categorie
...
SQL

    my ($cat) = sqlSingleRow($sql_cat, $category, $lang );