use strict; use warnings; use IO::Socket; my $s = IO::Socket::INET->new("46.105.122.141:9676") or die $!; $s->print("GET / HTTP/1.0\r\n\r\n"); # NonStopOldies Stream auf Konsole print while <$s>;