#!/usr/bin/env perl
use strict;
use warnings;
use Text::CSV_XS;
my $csv = Text::CSV_XS->new({binary => 1}) or die;