package MyXSV;
use base 'Text::xSV';
sub format_row {
  my $csv = shift;
  my $row = $csv->SUPER::format_row(@_);
  $row =~ s/\n$/\015\012/;
  $row;
}
1;

...
while ( $res->fetch ) {
  $csv->print_row( $city_id, $alias_id, $alias );
}