$csv = Text::CSV_XS-> new (\%csv) or die "Problem creating new CSV object".Text::CSV_XS->error_diag ();
my $csv_file = @ARGV && -f $ARGV[0] ? $ARGV[0]: "csv2excel";    #   get csv file name                                                                                                                                   
my $wbk = Excel::Writer::XLSX->new (my $outfile = get_outfile($csv_file)) or die "Problems creating new Excel file: $!" unless defined $wbk;                                                                            
$properties{'title'} ||= $opt_title;                                                                                                                                                                                    
read_row(open_csv());
$wbk->set_properties(%properties);                                                                                                                                                           
print Dumper($wbk->set_properties(%properties));                                                                                                                                                                        
$wbk->close;