Select Code to Download

#!/usr/bin/perl

...
        say join(",",@a);
}
$sth->finish();

#!/usr/bin/perl

...
        say join(",",@a);
}
$sth->finish();

>perl test2.pl
My::Text::CSV_XS -> new(@_ = (
...
 [for Statement "select * from test"] at test2.pl line 71, <GEN1> line
+ 1.

>

sub apply_encoding
{
...
    binmode $meta->{fh} or croak "Failed to set binary mode on $fn: $!
+";
    }
    } # apply_encoding

#!/usr/bin/perl

...
        say join(",",@a);
}
$sth->finish();

>perl test3.pl
1,2,3
4,5,6
>