$self->{CONTENT} = eval{ $gegeben = hex($gegeben); $gegeben == $user ? "$user ist Richtig!" : "Falsch! ($gegeben)"; } || "Alles Falsch!";
Du maskierst nicht kontextgerecht, der Code is anfällig für Cross-site-scripting-Attacken.
Das ist weder fachlich noch sachlich begründet!