$beitragsdatum = datum($beitragsdatum, "Tag0.Monat0.Jahr");
b) die Blockklammern vor dem get und und nach dem EOF wegmachen
c) das <<EOF und EOF ist hier vollkommen falsch, weg damit bzw. besser wäre es in den gesamten Ausgabeblock nach dem while get next und dann die vielen out weg, die kosten nur unnötig Serverzeit
d) beim get einen Ergebnishash angeben

$sta = $gruppenname;
     get "sort=-onlinedatum,prioritaet","INFO", "infos";
     while (get_next("infos")){
     $beitragsdatum = datum($beitragsdatum, "Tag0.Monat0.Jahr");
     $titelb = convert_url($titel);
     out<<EOF;
          <table border=0 cellspacing=0 cellpadding=4>
           <tr>
            <td width=80 bgcolor=$coh valign=bottom align=center>
            <a href=http://halleininfo.de/baseportal/INFO_DETAIL&id=$_id&gruppenname==$gruppenname&ST=$statistik>
            <font face=Arial size=1>$beitragsdatum
            <img src=http://www.halleininfo.de/files/$bild100 border=0 width=75 alt='$titel: Klicken für mehr Information'>
            </td>
            <td width=450 bgcolor=#$coh valign=top>
            <font face=Arial size=2><b>$bereichsname</br></font></b>
            <a href=http://halleininfo.de/baseportal/INFO_DETAIL&id=$_id&gruppenname==$gruppenname&ST=$statistik>
            <font face=Arial size=3 color=#330099><b><u>$titel</u></b></font>
            <font face=Arial size=2><br>$untertitel [mehr ...]</font>
            </td>
           </tr>
          </table>
          <table border=0 cellspacing=0 cellpadding=3>
           <tr><td width=430 height=2 bgcolor=$com></td></tr>
          </table>

     } # E while get_next
</perl>
</td><td witdh=5 bgcolor=#$com></td>
</td><td width=190 valign=top bgcolor=#$com><font face=Arial size=2><b>TERMINE</b> der nächsten 7 Tage</b><br>
<include src=TERMIN_index>
</td></tr>
</table>

<table border="0">

out<<EOF;
<tr><td bgcolor=$cob><font face=Arial size=2><b>$Datum</font></b></td></tr>
<tr><td bgcolor=$com><font face=Arial size=2><b>$Zeit Uhr:</b> $Titel $Detailinfo ($Veranstalter)</font><br></td></tr>
EOF
</loop>

<perl>
$tab_include = "<table border=0>";
$vdat1 = datum("jetzt","intern"); $vdat2 = datum("jetzt+7","intern");
get "Datum>=$vdat1 Datum<$vdat2 sort=Zeit", "HALLEIN_TERMINE", "akt_termine";
while(get_next("akt_termine")){
$tab_include .= <<EOF;
<tr><td bgcolor=$cob><font face=Arial size=2><b>$Datum</font></b></td></tr>
<tr><td bgcolor=$com><font face=Arial size=2><b>$Zeit Uhr:</b> $Titel $Detailinfo ($Veranstalter)</font><br></td></tr>
EOF
} # E while get_next
$tab_include .= "</tr></table>";
</perl>