On GAP-4.15.1, the ConjugacyClassesPerfectSubgroups does not find all perfect subgroups in some cases:
G:=WreathProduct(Group((1,2)), SymmetricGroup(6));;
Number(ConjugacyClassesSubgroups(G), h -> IsPerfect(Representative(h))); # =8
Size(ConjugacyClassesPerfectSubgroups(G)); # =6
On GAP-4.15.1, the ConjugacyClassesPerfectSubgroups does not find all perfect subgroups in some cases: