Ich kriegs nicht gebacken...mit flock

[Alain]

hallo,

hehe, dir hat noch keiner ein perldoc -f xxx entgegen geworfen?

doch auch schon :)

Also hier hab ich nun mein fertiges script das aber noch nicht richtig
zu funktionieren scheint bzw. nicht beendet wird und dadurch den inhalt
wieder löscht *nerv*

Hier ist das beispiel:

sub check
{
my $zugriff = 0;
open(DATEN,"+>$logfile") || die "cannot open $!\n";
flock(DATEN,LOCK_EX) || die "cannot lock $!\n";
while (<DATEN>){
 /$etwas_geschriebenes/ ? $zugriff = $zugriff + 1 : $zugriff;
     }
     if ($zugriff >= 1)
     {
     &Dead(); #abruch
     }
     else
     {
     seek (DATEN, 0, 2);
     print DATEN "$etwas_geschriebenes\n";
     close (DATEN) || die "cannot close $!\n";
     }
     }

Was ist denn hier nun falsch?
Am Anfang steht dies

#!/usr/bin/perl -Tw

use CGI::Carp qw(fatalsToBrowser);
use Fcntl ':flock';
use strict;

aber ich bekomm auch keine error meldung mit use strict.
Gruss vom Alain