my $rs = $schema->resultset ("UrTable")->search ({ ur => "search" });

my $csv = Text::CSV_XS->new ({ binary => 1, auto_diag => 1, eol => "\r\n" })
    or die "Cannot use CSV: ", Text::CSV_XS->error_diag;

my @headers = $rs->result_source->columns;
$csv->print (*STDOUT, \@headers);
#                     ^

my $cursor = $rs->cursor;
while (my @vals = $cursor->next) {
    $csv->print (*STDOUT, \@vals);
#                         ^
    }