<perl>
get;
del "Verfallsdatum < jetzt", "news";
out "<table border=0 width=100%>";
while(get_next)
{
out "<tr>";
out "<td width=640><b>$Titel</b></td>";
out "</tr>";
out "<tr>";
out "<td width=640>$Text</td></tr>";
out "<tr>";
out "<td width=640><font size=2>Veröffentlicht am: ";
out datum "$Datum";
out "   von: $Autor gültig bis: ";
out datum "$Verfallsdatum";
out "</font></td>";
out "</tr>";
out "<tr><td width=640><br></td></tr>";
}
out "</table>";
</perl>
</body>
</html>