Select Code to Download

#!/usr/bin/perl
use warnings;
use strict;
...

    $csv->say(*STDOUT, $row);
}

#x,y,z skip
abc,"d
...
#comment skip
a,b,c,#xyz keep
"#foo",x,y,z keep