Perl schreibt nicht in eine Datei

[HenKHan]

Ich danke euch für eure Bemühungen!
Aber so funzt es:

#!/usr/bin/perl -w

use CGI;
my $cgi = new CGI;
print $cgi -> header();

open DAT, "+<$datei" or die "Kann Counter-Datei nicht oeffnen!";
flock(DAT, 2);
$inhalt =int(<DAT>);
$inhalt++;
seek DAT, 0, 0;
print DAT "$inhalt";
close DAT;

print "$inhalt<br>";

Vielen Dank
HenKHan