GetActiveObject

Win32::OLE->GetActiveObject(progid)