Hallo, Habe einen Socket auf die Beine gestellt. So jetzt möchte ich die serverantwort gedruckt haben. Wie geht das? Hab mich jetzt 3 stunden durchgegoogelt sonst würd ich nix posten.
use IO::Socket::INET; $socket = new IO::Socket::INET( PeerAddr => "www.wer-kennt-wen.de", PeerPort => 80, Proto => 'tcp') || die "Error creating socket: $!"; print $socket "GET /HTTP/1.1\n\n"; while($line = <$socket>){ } print $line;