$var1 = 1; # ist Abhängig von Dateinhalt der weiter oben eingelesen wurde
if ($var1 == 1) {
   open (FILE, ">datei.txt");
   print FILE "zeile";
   close FILE;
   print "AAA"; # oder $var2 = "AAA";
} else {
   print "BBB"; # oder $var2 = "BBB";
}

# (Ausgabe: BBB)

#!/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 

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

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

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper; # nur für die Testausgabe
use CGI::Carp qw(fatalsToBrowser); # damit Fehler im Browser angezeigt werden

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

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

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

print '<pre>', Dumper(\@lines),'</pre>';

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

if ($doubleVote == -1) {
        open $FILE, ">>", "log.txt" or die "log.txt: " . $!;
        print $FILE $q;
        close ($FILE) or die "Can't close log.txt: $!";
}

print $doubleVote;