Select Code to Download

$csv = Text::CSV_XS-> new (\%csv) or die "Problem creating new CSV obj
+ect".Text::CSV_XS->error_diag ();
my $csv_file = @ARGV && -f $ARGV[0] ? $ARGV[0]: "csv2excel";    #   ge
+t csv file name                                                      
+                                                                     
+        
...
$wbk->set_properties(%properties);                                    
+                                                                     
+                                                  
print Dumper($wbk->set_properties(%properties));                      
+                                                                     
+                                                                     
+        
$wbk->close;

$VAR1 = {
...
        Excel::Writer::XLSX::Workbook::close(Excel::Writer::XLSX=HASH(
+0x3f971c0)) called at /home/larry/perl/test/csv2excel.pl line 85

shell returned 25