<perl>
%Status=("Offen" => "red", "in Arbeit" => "yellow", "Erledigt" => "green");
</perl>
<do action=all listtype=->
<table><tr><th>Status</th><th>...weitere Felder...</th></tr>
<loop code=perl>
out <<EOF;
<td style="color:$Status{$Status}">$Status</td><td>...weitere  Felder...</td></tr>
EOF
</loop>
</table>