#!/usr/bin/perl

 
use strict;

use warnings;

use diagnostics;

use Excel::Writer::XLSX;

<p> Direct copy of example for use of module "Text::CSV_XS" <p> 


my $csv = Text::CSV_XS->new ({ binary => 1 });
 open my $fh, "<", "a.csv" or die "a.csv: $!";
 while (my $row = $csv->getline ($fh)) {
  # do something with @$row