#!/usr/bin/perl -w
use strict;

open LS, "/bin/ls wav/*.wav |";
@::wavs = <LS>;
close LS;

local $::wav = $::wavs[rand $#::wavs];

spew_wav();
#spew_mp3();
#redir_wav();

sub spew_wav {
    print "Content-type: audio/x-wav \n\n";
    open WAV,"/bin/cat $::wav |";
    print while <WAV>;
    close WAV;
}
sub spew_mp3 {
    print "Content-type: audio/mpeg \n\n";
    open WAV,"/usr/local/bin/bladeenc $::wav |";
    print while <WAV>;
    close WAV;
}
sub redir_wav {
    print "Location: $::wav \n\n";
}