Auslesen einer .data funzt nicht

[rainer]

Hallo, liebe Forumer....
das untenstehende Script wird ausgefuehrt, aber leider bekomme ich immer nur die Zeile "Zur Zeit leider....." als Ausgabe.
Ergo..., die news.data (liegt mit im cgi-bin Verzeichnis) wird nicht gelesen.
Nach ewiger Sucherei hier die Frage:

-Seht ihr evtl. den Fehler - oder Denkfehler?

Schoenen Dank fuer Eure Muehe

rainer

#!/usr/bin/perl

holt Datensaetze aus der Datei news.data und stellt sie als HTML Datei dar

$database= join "",$ENV{'DOCUMENT_ROOT'},"news.data";

$html_zeile[0]="<HR><FONT FACE="Verdana,Arial,Helvetica">";
$html_zeile[1]="<FONT SIZE=+2><B>Zur Zeit gibt es leider keine News</B></FONT><HR>";

if (open DATA, $database){
$index=0;

while ($zeile = <DATA>){  

($ueberschrift,$text)=split /~/,$zeile;
  %hasch= (
   ueberschrift  => $ueberschrift,
   text  => $text,
   datum  => $datum,
  );
  chomp %hasch;
# erste zeile ueberlesen, da da nur die ueberschrift steht!
  if ($index > 0){
   $html_zeile[$index]= join "","\n<B><CENTER>",$hasch{ueberschrift},"</CENTER></B><P>\n<FONT SIZE=-1><DIV ALIGN=JUSTIFY>",$hasch{text},"\n</DIV>\n<P>\n <I>",$hasch{datum},"\n</I>\n</FONT><HR>";;
  }
  $index++;
}
close DATA;
}

print "Content-type: text/html \n\n";
print @html_zeile;

exit(0);