... }else{    print < Titel                    
Events
            EOT1                  foreach (sort { $a <=> $b } @events) {        my ($beginn, $name, $veranstalter, $titel, $ort, $location, $am, $art, $mail, $url, $sonstiges) = split(/\|/,$_);        # kommt hier nicht noch irgendwo $url hinein? Und woher kommt $urlcgi?        print qq~»          $titel
by          $veranstalter

       ~;    }    print <        
   
EOT2    exit; };