Select Code to Download

use Text::CSV_XS;

...
while (my $row = $csv->getline ($in)) {
    # ...
    }

use Text::CSV_XS qw( csv );
use PerlIO::via::gzip;

my $aoa = csv (in => "test.csv.gz",  encoding => ":via(gzip)");