# close all running instances of XMLSpy
while($open_app=Win32::OLE->GetActiveObject,'XMLSpy.Application'))
{
      $open_app->Quit;
      if( Win32::OLE->LastError() )
      {
         exit 0;
      }
      undef $open_app;
}