<perl> 
my $gesamt=0;      # Legt die Variable "gesamt" an, in der die Summe der Bewertungen gespeichert werden soll
my $schnitt=0;     # Legt die Variable "schnitt" an, in der der Durchschnitt gespeichert werden soll
get "Id==*", "db";
while(get_next("db")) # Holte die Einträge aus der DB
{
$gesamt = $gesamt+$noten;  # Addiert die Noten
}
$schnitt = $gesamt/$_amount_all;  # Berechnet den Schnitt und speichert ihn in der Variablen $schnitt
out "Dieser beitrag wurde $_amount_all mal bewertet und durchschnittlich mit $schnitt benotet."; # Gibt das Ergebnis aus
</perl>