sub csv_content {
    my $res = shift;
    return csv (in => \$res->content, bom => 1, sep => ";");
    } # csv_content