if(-e("$filetoopen")){
          open(FILE, "$filetoopen");
          my @events = <FILE>;
          close(FILE);
# ..
# ..
# ..

          print "Content-type: text/html\n\n";
          print "here's all the HTML stuff; 

          my $id = -1;
          foreach (sort{ $a <=> $b } @events) {
                    ($beginn, $name, $veranstalter, $titel, $ort, $location, $am, $art, $mail, $url, $sonstiges) = split(/\|/, $_);
                    $id++;
                    if($a eq nein){
                              print "here's HTML stuff, too";
                              # $a = ja;
                              # Wenn du hier auf "ja" setzt wird der HTML Code nicht mehr ausgegeben!
                    }
          }
}

exit;