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 "Pragma: no-cache \r\n"; print $socket "Connection: close \r\n"; print $socket "icy-name: Fuelradio \r\n"; print $socket "icy-genre: Techno \r\n"; print $socket "icy-url: http://www.fuelradio.com \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";