#!/usr/bin/perl

print ("Content-type: text/html\n\n");

my $q = "hallo";
my $doubleVote = -1;

my $FILE;
open $FILE, "log.txt"; # Datei ist anfangs leer !
my @lines = <$FILE>;
close ($FILE);

foreach my $pair (@lines) {
    if ($pair eq $q) {
        $doubleVote = 1;                               
    }
}

if ($doubleVote == -1) {
        my $FILE;
        open $FILE, ">> log.txt";
        print $FILE $q;
        close ($FILE);
}

print $doubleVote;

# Ausgabe auf Apache für     $doubleVote:  1  (falsch)
# Ausgabe auf Perl/Samba für $doubleVote: -1 (richtig)
# In beiden Fällen wurde die Datei beschrieben, nur der Wert von
# $doubleVote ist unterschiedlich.
# (Anmerkung: wird das script ein zweites mal aufgerufen ändert sich unter
# Apache der Wert nicht, unter Perl/Sambar ändert er sich korrekt auf 1