Kann jemand das Script korrigieren?

[dairaen]

Hallo allerseits, erbarmt sich jemand und sagt mir was an diesem Script falsch ist?

#!/usr/bin/perl

Script zum löschen von Einträgen in der eintrag.txt

um einzelne Elemente aus der HTML Datei zu entfernen

require "cgi-lib.pl";
&parse_form;

$image = "<e:/Xitami/webpages/eintrag/image.txt";
$text  = "<e:/Xitami/webpages/eintrag/text.txt";
$new = ">e:/Xitami/webpages/eintrag/autos.htm";
open(IMAGE, $image) or die "Datei existiert nicht!"; # öffnen der image.txt
open(TEXT, $text) or die "Datei existiert nicht!"; # öffnen der text.txt
open(NEW, $new); # öffnen der autos.htm

$loesch = $in{'loeschen'}; # $loesch den Wert des FORM zuordnen
$j = 0; # $j auf null setzten

$length = 0; # Variable für den i< Zähler initialisieren

while (IMAGE)
{
$all_image= $_;  # Inhalt von image.txt einlesen
@anzahl_image = split(/!!/, $all_image); # nach jedem !! spliten
$length = $length +1; # für jeden split lenght um 1 erhöhen
}

while (TEXT)
{
$all_text = $_;
@anzahl_txt = split(/!!/, $all_text);
}

Löschvorgang

@new_image = ();
@new_text = ();

for ($i=0;$i<$length;$i+=1)
{
if ($i ne $loesch)
{
  $new_image[$j] = $all_image[$i];
  $new_text[$j] = $all_text[$i];
  $j += 1;
}
}

Abspeichern der neu erstellten Arrays

$eintrag = ">e:/Xitami/webpages/eintrag/eintrag.txt";
open(EINTRAG, $eintrag) or die "Datei existiert nicht!"; # öffnen der eintrag.txt
print EINTRAG "$new_image[$j]!!;\n new_text[$j]\n";

Schließen der gesamten Dateien

close (EINTRAG);
close(IMAGE);
close(TEXT);
close(NEW);