# socket handle erstellen
my $socket = new IO::Socket::INET (
	PeerAddr => $host,
	PeerPort => $port,
	Proto    => 'tcp'
);

# Request Header senden
print $socket "GET / HTTP/1.0\n\n";

# Speicherort des Streams öffnen
open(OUT, ">cut.mp3");
binmode OUT;
while(my $s = read($socket, my $buffer, 1024)){
	print OUT $buffer;
}