<perl>
get "einordnung==100er", "ortsrecht" ;
while(get_next("ortsrecht"))
{
out <<EOF;
<tr onmouseover="this.style.background='#c0c0c0'" onmouseout="this.style.background=''">
 <td headers="Nummer"><p><a href="http://www.stadtratingen.de/files/$dateiname.doc">$nummer</a></p></td>
 <td headers="Dateigroesse">
EOF

$dateig=length($x)/1000;
$dateigaus=sprintf('%.2f',$dateig); # auf 2 nachkommastellen
out "$dateigaus KB";

</td>
 <td headers="Titel"><p>$titel</p> </td>
</tr>
EOF
}
</perl>