Select Code to Download

        print $socket "ICY 200 OK\r\n";
        print $socket "Content-Type: audio/mpeg \r\n";
        print $socket "Cache-Control: no-cache \r\n";
...
        print $socket "icy-notice1:This stream requires Winamp \r\n";
        print $socket "icy-notice2:Perl Streamer v0.1a \r\n";
        print $socket "icy-metadata: 1 \r\n\r\n";

print $socket "icy-metaint:8192\r\n";