Select Code to Download

 my $aoa = csv (in => "test.csv") or
     die Text::CSV_XS->error_diag;

 my $aoa = csv (  in => "test.csv", sep_char => ";");
 my $aoh = csv ({ in => $fh, headers => "auto" });

 my $aoa = csv (in => "file.csv");

 open my $fh, "<", "file.csv";
...

 my $csv = [ [qw( Foo Bar )], [ 1, 2 ], [ 2, 3 ]];
 my $err = csv (in => $csv, out => "file.csv");

 my $aoh = csv (in => $fh, headers => [qw( Foo Bar )]);
 csv (in => $aoa, out => $fh, headers => [qw( code description price }
+]);

 use Text::CSV_XS qw( csv );
 my $aoh = csv (
     in       => "test.txt",
...
     fragment => "row=3;6-9;15-*",
     );
 say $aoh->[15]{Foo};