Perl schreibt nicht in eine Datei

[HenKHan]

Hallo,

ich habe folgendes Script geschrieben:

#!/usr/bin/perl

use strict;
use CGI;

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

open DAT, "<./data/counter.dat" or die "Kann Counter-Datei nicht oeffnen!";
    my $inhalt = <DAT>;
close DAT;

$inhalt++;

open DAT, ">./data/counter.dat" or die "Kann Counter-Datei nicht oeffnen!";
    print DAT "$inhalt";
close DAT;

print $inhalt;

Das Script stellt einen Counter da. Wenn ich es direkt in der Kommandozeile meines Linux-Rechners ausführe, läuft es grandios. Sobald ich es aber über meinen Apache-Server ausführe, wird die Datei "platt" gemacht. D.h. der Inhalt wird komplett gelöscht. Dabei sind alle Rechte gesetzt:

counter.pl 755
counter.dat 777
data 777

mein System:
Linux-Kernel: 2.2.26
Perl-Version: 5.6.1
Apache: 1.3.19

Schon einmal vielen Dank