Klammer/Syntaxfehler... den ich nicht finde

[roger]

Hallo,

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>

das ist die letzte Zeile.
Ich kann mir nicht mehr helfen ich sehe es nicht. Funktion vorhanden... wird auch an anderer Stelle benutzt.

vielen Dank
    roger