$excelRowCounter=0;
my $parser = Spreadsheet::ParseExcel->new(
                                      CellHandler => \&excelCellhandler,
									  NotSetCell  => 1,
									  Parameters => "XXXXXXXXX"
                            );

$parser->parse($currentFile);

sub excelCellhandler
{
	# my $workbook    = $_[0];
	# my $sheet_index = $_[1];
	my $row         = $_[2];
	# my $col         = $_[3];
	my $cell        = $_[4];
	my $q;
	

	if($excelRowCounter == $row)
	{
	$q = $cell->unformatted();
	$text .= $v;     
		
	}
	else
	{
	if(length($text) > 2097152)
	{
	do something		  
	
	return 
	}
	$excelRowCounter = $row;
	
	$q = $cell->unformatted();
	 $text .= $v;      
		
	}
}