my $Excel = Win32::OLE->GetActiveObject('Excel.Application')
    or Win32::OLE->new('Excel.Application', 'Quit')
    or die "Could not start excel";