Klammer/Syntaxfehler... den ich nicht finde

[Struppi]

folgender Code liefert in der letzten Zeile einen Fehler

my $socket = new IO::Socket::INET (
        PeerAddr => $rechnername,
PeerPort => $port,
Type => SOCK_STREAM,
Proto => 'tcp'
); die &schreibeLogeintrag("Unable to setup socket: $! im Script $0\n") unless defined $socket;

>   
> <pre> at ./ajax.cgi line 61.</pre>  
  
Was ist das für eine Meldung? Die hat nichts mit dem obigen code zu tun.  
  

> Ich kann mir nicht mehr helfen ich sehe es nicht. Funktion vorhanden... wird auch an anderer Stelle benutzt.  
  
Welche Funktion? kann es sein, dass du uns nicht das zeigst, was du siehst?  
  
Struppi.