<perl>
$sek=3600;
$gesperrt="0";
$ip=$_REMOTE_ADDR;
$jetztzeit=time;
$zeitschranke=$jetztzeit - $sek;
del "zeit<$zeitschranke","sperre";
get "ip==$ip","sperre";
while(get_next("sperre")) {
if ($sperre_link_id==$Id) {
$gesperrt="1";
}
}
if ($gesperrt eq "0")
{
out "IP: $ip sperre_link_id: $Id";
put ["ip",$ip,"zeit",$jetztzeit,"sperre_link_id",$Id],"sperre";
get "Id==$Id", "my_db";
$Download_Range++; 
mod "Id==$Id", ["Download_Range", $Download_Range,"Last_Visit",datum("jetzt")],"my_db";
}
</perl>