my $head = $csv->getline($fh);
die "Empty CSV." unless defined $head;
warn "Field names detected: (@{$head})\n" if $ENV{MYSCRIPT_DEBUG};
die "No more CSV rows to process after header.\n" if $csv->eof;