Select Code to Download

package CSVParse;
use strict;
...
}

1;

open my $tabelaclientes, "gunzip -c somefile.csv.gz|" || die $!;
my $csv = CSVParse->new($tabelaclientes);
...
  print join(",",@$row)."\n";
}
close $tabelaclientes;