# snippet of the code
sub buttons
{
my $csv_file = '/home/user/mydomain.com/cgi-bin/files/spreadsheet.csv';

my $csv = Text::CSV->new ( { allow_whitespace => 1, binary => 1, sep_char => '|' } )
	or die "Cannot use CSV: ".Text::CSV->error_diag ();
my $csv_fh;
open ($csv_fh, "<:encoding(utf8)", $csv_file) or die "$csv_file : $!";

$csv->column_names($csv->getline($csv_fh));