+ Perl // Bekomme ein Fehler im Browser angezeigt!!!1

[shadow]

Hi @all

Hab ein Problem! Ich bekommer eine Fehlermledung im Browser angezeigt vielleicht wisst ihr was daran falsch ist.

use Fcntl qw(:DEFAULT :flock);   <----- Genau in der Zeile soll der Fehler sein. So wird es in der Fehlermeldung ausgegeben!

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

Der Wert nach dem gesucht werden soll

my $eingabe = $varpool;

my @zeile=();
my $gefunden=0;
open (DATEI, "<@dir1[0]") or die "Kann Datei @dir1[0] nicht öffnen$!\n";
flock(DATEI,2);
  while(<DATEI>) {
  chomp;
  @zeile=split(/\s*,\s*/,  $_, 1);
  if($eingabe eq $zeile[0]){
  $gefunden=1;
  last;
  }
}
close(DATEI);

Danke im vorraus. cu shadow