#!/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");

sub f1 {

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

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

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

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

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

 print $doubleVote;

}

&f1;