Help for this page

Select Code to Download

Select or download this

use Text::CSV::Encoded;
my $csv = Text::CSV::Encoded->new ({binary=>1, encoding=>"utf8"}) or d
+ie $!;
while (my $row = $csv->getline (*ARGV)) {
    $csv->print(\*STDOUT, $row);
}

Select or download this
```
perl test.pl test.csv
```