#!/usr/bin/perl

use Text::CSV_XS;
use warnings;
use strict;


{
    die("usage: $0 [<file>]\n") if @ARGV > 1;
    my($file, $fh);
    if (@ARGV) {
        $file = $ARGV[0];
        open($fh, '<', $file)
            || die("Unable to open file '$file': $!.\n");
    } else {
        $file = '-';
        $fh   = \*STDIN;
    } 

    my $csv = Text::CSV_XS->new({ binary => 1, eol => "\015\012" });
    while (my $row = $csv->getline($fh)) {
        $csv->print(\*STDOUT, $row);
    }

    die("Error parsing CSV file '$file': ", $csv->error_diag, "\n")
        if $csv->error_diag and not $csv->eof;
}