Problem mit Socket

[MaLu]

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);