my $excel = CreateObject Win32::OLE 'Excel.Application.10' or die $!;