Hm, wenn auf dem Unix netcat installiert ist, versuch doch mal folgendes:
system (' echo "HEAD / HTTP/1.0
" netcat www.server.de 80 grep Server');
Ansonsten kannst du das gleiche mit IO::Socket machen. Auf meiner Homepage ist dazu nen Beispielprogramm. Nennt sich Servertest.