use Text::xSV;
  use PerlIO::gzip;

  open my $gzin, '<:gzip', "filename" or die $!;
  my $csv = Text::xSV->new('fh'=>$gzin);
  .
  .
  .