Perl: if-Abfrage

[Daniel]

Hallo Leute,

ich hätte mal eine Frage bezüglich Perl. Ich habe einen Formular auf einer Web-Seite aufgebaut. Je nachdem was eingegeben wird, erfolgt eine Weiterleitung zu einer bestimmten Seite. Leider klappt es nicht wie ich es möchte. Es wird immer die Seite im if-Rumpf geladen, und das auch wenn die Formular-Eingaben mit dem Inhalt des Zeilen-Arrays übereinstimmt. Vielleicht könnt ihr mir sagen, was ich da falsch mache, würde mich freuen.

Daniel

Anhang: Source-Code

#!/usr/bin/perl

if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
$Daten = $ENV{'QUERY_STRING'}
}
else
{
read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});
}

@Formularfelder = split (/&/, $Daten);
foreach $Feld (@Formularfelder)
{
($name, $value) = split(/=/, $Feld);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9] [a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/<!--(.|\n)*-->//g;
$Formular[$i] = $name;
$i = $i + 1;
$Formular[$i] = $value;
$i = $i + 1;
}

@Zeilen =("");
open(PASSDAT, "<edit.txt");
while(<PASSDAT>)
{
push(@Zeilen,$_);
}
close(PASSDAT);

print $Zeilen[0];

if (($Formular[1] eq $Zeilen[1]) && ($Formular[3] eq $Zeilen[2]))
{
print "Location: ../ml/index.html\n\n";
}
else
{
print "Location: ../fl/index.html\n\n";
}