use Spreadsheet::ParseXLSX;
use Spreadsheet::ParseXLSX::Cell;
my $parser = Spreadsheet::ParseXLSX->new( );
my $workbook = $parser->parse($infile); print "workbook=$workbook\n";
        my ( $row_min, $row_max ) = $worksheet->row_range();
        my ( $col_min, $col_max ) = $worksheet->col_range();
    for my $worksheet ( $workbook->worksheets() ) {

my $cell = $worksheet->{Cells}[$row_min][$col_min] ;
print Dumper($cell);
my $toprint=  $cell->is_merged() ? 'got merged' : 'unmerged';
print "$toprint\n";
                                                     }