Strings mit Variablen verbinden ?

[xNeTworKx]

Sup!

Was kommt denn für ein Fehler / was steht in $dateiname / was funktioniert nicht? So auf den ersten Blick sieht das ganz okay aus...

Wenn ichs vom Server laufen lasse -> Internal Server Error
Wenn ichs von der DOS Befehlszeile mit perl -d ausführe erkennt er keinen Fehler. Ich poste mal das Script so weit wie es bis jetzt ist.

#!/usr/bin/perl -w

use CGI;
use CGI::Carp qw(fatalsToBrowser);
$query = new CGI;
$counter = 0;
@hilfsliste = "";
$dateiname = "";

print $query->header;
open(ZAEHLER,">>data.txt") or die "Zaehler kann nicht geoeffnet werden : $!\n";
flock ZAEHLER, 2;
print ZAEHLER "a";
close ZAEHLER;

open(ZAEHLER,"<data.txt") or die "Zaehler kann nicht geoeffnet werden : $!\n";
while (<ZAEHLER>)
   {
    while (/a/)
       {
       $counter++;
       }
   }
close ZAEHLER;
push @hilfsliste, 'text';
push @hilfsliste, $counter;
push @hilfsliste, '.txt';
$dateiname = join('',@hilfsliste);
open (FILE,">$dateiname") or die "Neue Datei kann nicht geoeffnet werden : $!\n";
close FILE;