csv2tsv

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;
use 5.010;

use Text::CSV_XS;
use Log::Minimal;
use Path::Class;

my $csv = Text::CSV_XS->new({binary => 1}) or die 'cannot new Text::CSV_XS';

my $from_stdin = ($#ARGV != 0);
my $io = ($from_stdin) ? *ARGV : file($ARGV[0])->openr;

while (my $row = $csv->getline($io)) {
    my @fields = @$row;
    say join("\t", @fields);
}
$csv->eof or $csv->error_diag();

$io->close if ($from_stdin);