use strict;
	use Win32::OLE;
	# write a value in the first empty ro of the first column
	# an excel workbook containing a sheet called Versions 
	my $projsheet = 'c:\temp\t.xls'; 
	my $val = 123; 
	my $ex = new Win32::OLE 'Excel.Application' or die;
	eval ("\$ex->Workbooks->Open(\'$projsheet\')") or die;
	
	#
	# find empty row
	#
	my $rowcounter		= 1;
	my $rowval		= 1;
	while (($rowval) && ($rowcounter < 1000)) {
		$rowval	= eval "\$ex->Workbooks(1)->Worksheets(\'Versions\')->Cells($rowcounter,1)->{Value}" ;
		$rowcounter++;		
	}
	$rowcounter--;		
	#
	# fill in the values in the sheet
	#
	
	eval "\$ex->Workbooks(1)->Worksheets(\'Versions\')->Cells($rowcounter,1)->{Value}= \'$val\'" ;
	
	#
	# save and quit
	#
	$ex->Save;
	$ex->Quit;
	
	return 1;