#! usr/bin/perl -w
#use,strict;

use Spreadsheet::WriteExcel;
use Spreadsheet::ParseExcel;	

my $workbook;
my @labels = ('Parameter_Name','Parameter_Index','Storage_Class','Data_Type','min_range_value','max_range_value','default_value','test_value','mode_for_write','access_rights','view1','view2','view3','view4');


	$workbook = Spreadsheet::WriteExcel->new('perl.xls');	
	$worksheet = $workbook->add_worksheet();						

	for($for=0;$for<13;$for++)
		{
				$worksheet->write(0,$for,$labels[$for]);
			#	print($for);
			#	print($labels[$for]);
		}



&get_max_row_col();
sub get_max_row_col()
{
	 my $parser   = Spreadsheet::ParseExcel->new();	
	 my $workbook1 = $parser->parse('perl.xls');
	 
	 for my $worksheet ( $workbook1->worksheet(0) ) 
		{
			my ( $row_min, $row_max ) = $worksheet->row_range(); 	# Find out the worksheet ranges
			my ( $col_min, $col_max ) = $worksheet->col_range();

			print ("max_rows = $row_max \n");
			print ("max_cols = $col_max \n");
		}	
}