use strict;
use warnings;
use diagnostics;

use Spreadsheet::XLSX;
use Text::CSV;

 
 
 my $excel = Spreadsheet::XLSX -> new ('Sample.xlsx',);

 my $csv = Text::CSV->new ({eol => "\n"});


 foreach my $sheet (@{$excel -> {Worksheet}})
{

 printf("Sheet: %s\n", $sheet->{Name});

#my @worksheet = qw(sheet1 sheet2);

my $maxrow = $sheet -> {MaxRow};

 my $Minrow = 1;

    my @wanted_cols = (8, 9, 10, 20);
        
        $maxrow ||= $Minrow;

       open FH, ">new.csv" or die "new.csv: $!";
               
         foreach my $row ($Minrow  .. $maxrow) 
              {
                foreach my $wanted_cols (@wanted_cols)
                     {
                         my $wanted_cells =$sheet->{Cells}[$row][$wanted_cols];   
                               
                         $csv -> print ( $wanted_cells -> {Val} );
                      }
                      $csv -> print ("\n");
                          
               }
        close FH or die "new.csv: $!";
 }