Perl schreibt nicht in eine Datei

[Wolfgang Schricker]

ich habe folgendes Script geschrieben:

Das Script stellt einen Counter dar.

[...]

Hallo,
läuft bei mir seit Jahren:

#!/usr/bin/perl -w

Author : WOLfgang Schricker [e-mail]

use strict;

my $log_file = "data/counter.dat";

unless ( open(LOG, "+< $log_file") )
{
  open(LOG, "> $log_file")  or die "Can't open '$log_file':\n$!\n";

print LOG "1";

close(LOG)                or die "Can't close '$log_file':\n$!\n";
}
else
{
  my @log = <LOG>;

$log[0]++;
   seek(LOG, 0, 0)          or die "Can't seek '$log_file':\n$!\n";
   print LOG @log;
   truncate(LOG, tell(LOG)) or die "Can't truncate '$log_file':\n$!\n";

close(LOG)                or die "Can't close '$log_file':\n$!\n";
}

exit(0);