Z3:=Group((1,2,3));
Group([ (1,2,3) ])
gap> Z3gen:=GeneratorsOfGroup(Z3)[1];
(1,2,3)
gap> Z5:=Group((1,2,3,4,5));
Group([ (1,2,3,4,5) ])
gap> g:=DirectProduct(Z5,Z5);
Group([ (1,2,3,4,5), (6,7,8,9,10) ])
gap> Auts:=AutomorphismGroup(g);
<group with 4 generators>
gap> AutsOfOrd3:=Filtered(Elements(Auts),elt->Order(elt)=3);;
gap> ExHom:=GroupHomomorphismByImages(Z3,Auts,[Z3gen],[AutsOfOrd3[1]]);
[ (1,2,3) ] -> [ [ (1,2,3,4,5), (6,7,8,9,10) ] -> [ (1,5,4,3,2)(6,10,9,8,7), (1,2,3,4,5) ] ]
gap> s:=SemidirectProduct(Z3,ExHom,g);