<loop code=perl>#aktuelles Datum der Abschrift
if($_raw{date} lt datum("jetzt", "intern"))
{
&nbsp;...
}
</loop> 

{
$Artikel="Obst&Gemüse";# Textbezeichnung des abgeschriebenen Artikel
}
</loop> 
<loop code=perl>
{
$Menge=0;#Anzahl des abgeschriebenen Artikel
}
</loop> 
<loop code=perl>
{
$Preis=0;# Preis des abgeschriebenen Artikel
}
</loop> 
<loop code=perl>
{
$Gesamt=$Menge*$Preis;# Ergebnis 
}
<loop code=perl>
{
out="$Menge mal $Preis ergibt $Gesamt.\";
}
</loop>