open my $tabelaclientes, "gunzip -c somefile.csv.gz|" || die $!;
my $csv = CSVParse->new($tabelaclientes);
while (1) {
  my $row = $csv->fetch_row();
  last unless defined $row;
  for (@$row) {
    utf8::decode($_);
  }
  print join(",",@$row)."\n";
}
close $tabelaclientes;