#! /usr/bin/env perl

# Read the export from Thumbs Plus including keywords from filename given.

use warnings;
use strict;
use utf8;      # so literals and identifiers can be in UTF-8
use v5.12;     # or later to get "unicode_strings" feature
use warnings  qw(FATAL utf8);    # fatalize encoding glitches
#use open      qw(:std :utf8);    # undeclared streams in UTF-8
#use charnames qw(:full :short);  # unneeded in v5.16
use Text::CSV;

use Data::Dumper;		# debug

my $csv = Text::CSV->new ( { binary => 1 } )
    or die "Cannot use CSV in: ".Text::CSV->error_diag();

print $ARGV[0],"\n";
open my $ifh, "<:encoding(UTF-8)", $ARGV[0] or die "$ARGV[0]: $!";
print "Point a\n";

# Returns "the instance" -- of what?  Do I care?
my $thingie = $csv->header ($ifh);
print "Point b\n";

print Dumper($csv), "\n";