Select Code to Download

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);
}

perl test.pl test.csv