<perl>
@dateien=get "/","down,base,htx";     # ---- nur Seiten
$len=@dateien;
#for($i=0;$i<$len;$i++){
for($i=0;$i<2;$i++){                  # ---- zum Testen nur mal 2
  $tx=pop(@dateien);
  $tx=substr($tx,18,length($tx)-22);  # ---- Pfad und .htx weg
  $text=include "$tx";                # ---- Seite laden
  $_header= "Content-type: text/htx\nContent-disposition: filename=$tx.htx\n\n";
  out "$text";                        # ---- und downloaden
}
</perl>