"Internal Server Error" aber Script angeblich fehlerfrei??

[Sonia]

Hallo,

ich habe mir ein Script zusammengebastelt
das Einträge in eine guest.dat schreiben soll.
Laut Syntaxchecker meines Providers (1&1)
ist das Script voll funktionsfähig.
Leider kann das aber nicht ganz stimmen, denn ich bekomme
einen 500er (Internal Server Error) Fehler und
ich habe (wie immer) schon alles nachgeschaut von dem ich irgendwo in
selfhtml hinweise gefunden habe was die ursache sein könnte,
aber keine mögliche fehlerquelle traf zu.
Alle Rechte sind richtig
also vermute ich einen Fehler im Script, den ich aber auch
nicht finden kann weil ich nicht aufs log zugreifen kann.
also muß ich im dunkeln stochern und finde bisher einfach nichts.
weiß hier zufällig einer wo der fehler im script sein könnte?

Danke schonmal

Gruß
Sonia

Hier das ganze Script:

#! /usr/bin/perl

use strict;
  use CGI;
  use Fcntl ':flock';

my $cgi = new CGI;
  use CGI::Carp qw(fatalsToBrowser);

chdir("/homepages/mydir/htdocs/wdesign/guest/");
  open(DATEI, "<guest.dat") || die "Datei nicht gefunden";
  my @Zeilen = <DATEI>;
  close(DATEI);

my @NeuerEintrag;
  my @NeueZeilen;

my $Username;
  my $Kommentartext;

push(@NeuerEintrag, "<!-- EINTRAG [".$cgi->param($Username)."] Datum-->\n");
  push(@NeuerEintrag, "<table border="1"><tr>\n");
  push(@NeuerEintrag, "<th>von:</th><td>".$cgi->param($Username)."</td>\n");
  push(@NeuerEintrag, "<th>am:</th><td>Datum</td>\n");
  push(@NeuerEintrag, "</tr><tr>\n");
  push(@NeuerEintrag, "<td colspan="2">".$cgi->param($Kommentartext)."</td>\n");
  push(@NeuerEintrag, "</tr></table>\n");

foreach(@NeuerEintrag)
      {
        push(@NeueZeilen,$_);
      }

open(DATEI, ">>guest.dat") || die "Datei nicht gefunden";
  flock(DATEI,LOCK_EX);

print DATEI @NeueZeilen;

flock(DATEI, LOCK_UN);
 close(DATEI);