#!perl
use strict;
use Spreadsheet::ParseExcel;

my $parser   = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('merge.xls');
for my $worksheet ( $workbook->worksheets() ) {
  my $range = $worksheet->get_merged_areas();
  for (@$range){
    print "
    start row : $_->[0]
    start col : $_->[1]
    end row   : $_->[2]
    end col   : $_->[3] \n\n"; 
  }
}