Problem mit Socket

[Klaus Mock]

Hallo,

Nein, es läuft auch mit http Header nicht. Probiere du es doch mal selbst aus. Kopiere den Quelltext und lass es bei dir laufen.

Quelltext:

#!/usr/bin/perl

print "Content-Type: text/html\n\n";
$tan = 'http://www.domain.de'
print "Server 1: ";
$client = new IO::Socket::INET(PeerAddr => "$tan",PeerPort => "80",Timeout => 5,Type => SOCK_STREAM,Proto => 'tcp');
if($client) {print "<span class=green>&nbsp;ERREICHBAR&nbsp;</span>.\n";}
else {print "<span class=red>&nbsp;NICHT ERREICHBAR&nbsp;</span>.\n";}
close($client);

Abgesehen von einem Syntax-Fehler bei '$tan =...' dürfte auch das fehlende Einbinden des IO::Socket-Moduls ein Problem darstellen.
Ausserdem denke ich nicht, dass der Server 'http://www.domain.de' erreichbar sein wird. Aber das sind dann ja nur Kleinigkeiten.

Grüße
  Klaus