$ perl -MText::CSV -e 'print "$Text::CSV::VERSION\n"'
1.06
$ eval $(perl -I$HOME/perl5/lib/perl5 -Mlocal::lib)
$ perl -MText::CSV -e 'print "$Text::CSV::VERSION\n"'
1.20

##</code><code>##

 EHR - getline_hr () called before column_names () at myscript.pl line 676

##</code><code>##

# declare column names for getline_hr
$csv->column_names($csv->getline($csv_fh));

# Build Array of HashRefs 
my @buttons;
while (my $row = $csv->getline_hr($csv_fh))
	{
	push(@buttons, $row) unless ($. == 1);
	}