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

HTTP/1.0 200 OK
icy-notice1:<BR>This stream requires <a href="http://www.winamp.com">Winamp</a><BR>
icy-notice2:Shoutcast DNAS/posix(linux x86) v2.6.1.777<BR>
Accept-Ranges:none
Access-Control-Allow-Origin:*
Cache-Control:no-cache,no-store,must-revalidate,max-age=0
Connection:close
icy-name:NonStopOldies
icy-genre:Oldies
icy-br:128
icy-sr:44100
icy-url:http://www.nonstopoldies.com
icy-pub:1
content-type:audio/mpeg
X-Clacks-Overhead:GNU Terry Pratchett