Problem mit Socket

[MaLu]

Alle Alle,

ich habe mir heute ein Perl Script programmiert, dass mir überprüft, ob ein bestimmter Webserver an ist. Wenn ich das Script habe aufrufe, kommt Error 500 Internal Server Error.

Mein Script lautet:

#!/usr/bin/perl

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

Bitte helft mir.