Wo muss ich hier etwas ändern?

[Patrick Schumacher]

Danke erstmal für deine Antwort.

Nein, ich habe nichts für das Skript bezahlt. Er selber hat es auch aus dem Internet.

Ich denke, die Abstimmung zu deinem Thread spricht ja Bände, doch ich muss da jetzt was dagegen sagen.

Das hier (und sei es noch so gut):

#!/usr/bin/perl -w
use strict;
use CGI;

print CGI::header();
print CGI::start_html(-title => 'Personenregister');

open  FH, "<../ahnentafel/stammbaum.txt" or die "Datei kann nicht geöffnet werden, weil: $!";
my @zeilen = <FH>;
close FH;

print CGI::h2('Alle Namen');
print CGI::start_table({-border => 1, -cellpadding => 2, -cellspacing => 0 });
print CGI::Tr( CGI::th(
[ qw/ID Name Vorname 2.Vorname geborene geboren&nbsp;am Land Ort
        gestorben&nbsp;am Land Ort VaterID MutterID PIC Bemerkung Ehepartner Hochzeitsdatum
/]
));

foreach( sort @zeilen)
{
    my @felder = split(/;/, $);
    my $person = shift @felder ;
    print CGI::Tr( CGI::td( [
    CGI::a( {-href => "/cgi-bin/viewPers.pl?$person"}, $person),
    map {'&nbsp;' unless $}  @felder
    ]));

}

print CGI::end_table(), CGI::end_html();

  
... gibt mir einen "Internal Server Error".  
  
An deinem Code habe ich nichts verändert, ich habe ihn nur kopiert und eingefügt, als "read2.pl" abgespeichert, in den "cgi-bin" Ordner abgelegt und aufgerufen.  
Woran kann das liegen? Für PHP gibts die Funktion phpinfo(), und für Perl gibts das auch, ich weiß nur nicht mehr wie diese Funktion heißt. Brauchst du das zur Problemfindung?  
  
Danke aber trotzdem  
Patrick