$ perl -MText::CSV_PP -e " Text::CSV_PP->new->print(\*STDOUT, [1..3] ) "
1,2,3
$ perl -MText::CSV_XS -e " Text::CSV_XS->new->print(\*STDOUT, [1..3] ) "
1,2,3
$ perl -MText::CSV_XS -e " Text::CSV_XS->new->print(\*STDOUT, bless[1..3],666 ) "
1,2,3
$ perl -MText::CSV_PP -e " Text::CSV_PP->new->print(\*STDOUT, bless[1..3],666 ) "
Expected fields to be an array ref at -e line 1.