Zähler

[Jörg]

Hallo wer kann mir helfen?

mir gelingt es nicht einen Zähler in ein Mail-Skript einzubauen.
Das Skript läuft
hier sind die Bausteine die ich eingefügt habe.

###############################################

........

#Name der Counterdatei "ist vorhanden"
$count_txt="c1.txt" ;
#Pfad der Counter- Rückgabe- und Fehlerdateien
$data_dir = "/usr/local/etc/httpd/htdocs/cgi-bin/mail/data" ;

........
###############################################
........

#Aktuellen Counter holen
&akt_count;
........
###############################################

sub akt_count {

my $counter ;
my $dat_file="$data_dir/$count_txt";

open (COUNT, "<$dat_file")";
  $counter = <COUNT>;
  close(COUNT);
  open(COUNT, ">$dat_file");
  $counter++;
  close(COUNT);

}

###############################################
#Und diese Zeile habe ich im Unterprogramm sub send_mail
eingefügt.

....

print MAIL  "$counter"\n;

....
###############################################

Wer kann mir helfen?

MFG Jörg