<perl> -> Perl-Block einleiten (so weit noch klar? *g*)
if ($cmd eq "do_mod" || $cmd eq "do_add") { -> Wenn im "Bearbeitungsmodus" oder im "Hinzufügemodus" dann...
out <<EOF; -> ...gib aus:
  <script language="javascript"> -> JavaScript-Block
   function defocus() { -> Funktion deklarieren
    this.blur(); -> Entfernt den Focus aus dem "aufrufenden Element"
   } -> Ende der Funktion
   document.forms[0].elements["FELDNAME1:="].onfocus=defocus; -> Wenn Focus im Feld FELDNAME1 Funktion defocus aufrufen -> Focus wird entfernt (keine Eingabe möglich)
   document.forms[0].elements["FELDNAME2:="].onfocus=defocus; -> Das gleiche nochmal
  </script> -> Ende des Scripts
EOF -> Ende der Ausgabe
 } -> Ende der Fallunterscheidung
</perl> -> Ende des Perl-Blocks