Problem mit Socket

[MaLu]

Habe jetzt IO::Socket eingebunden, geht auch so weit. Aber er zeigt immer "NICHT ERREICHBAR" an. Warum weis ich nicht.

Die Variable $tan ist nur als test.

Quelltext:

#!/usr/bin/perl

use IO::Socket;

print "Content-Type: text/html\n\n";
$tan = 'http://forum.de.selfhtml.org';
print "Server 1: ";
$client = new IO::Socket::INET(PeerAddr => "$tan",PeerPort => "80",Timeout => 1,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);