#! /usr/bin/perl use strict; use warnings; use CGI; use CGI::Carp qw(fatalsToBrowser); my $cgi = new CGI; my $ip; my $ipdatei; my $vote; my @Zeilen; $ip = $ENV{'REMOTE_ADDR'}; $ipdatei = "/homepages/18/d23090695/htdocs/ip.txt"; open ( Datei, "<$ipdatei" ); @Zeilen = ; close ( Datei ); my @NeueZeilen; foreach my $Zeile (@Zeilen) {   if ( $Zeile =~ /^$ip/ ) {      print "Content type: text/html\n\n"; print "\n\nVielen Dank\n\n\n"; print "


Der Vote wurde registriert.
\n"; print "Vielen Dank\n"; print "\n";   }   else {      push ( @NeueZeilen, $Zeile, $ip );   } } open ( Datei, ">$ipdatei" ); print Datei @NeueZeilen; close ( Datei ); print "Content type: text/html\n\n"; print "\n\nVielen Dank\n\n\n"; print "


Der Vote wurde registriert.
\n"; print "Vielen Dank\n"; print "\n";