my $exl = Win32::OLE->GetActiveObject('Excel.Application') || 
	 Win32::OLE->new('Excel.Application');