$ perl -e '
local $/;
$w=<>;
open(F,">","/dev/dsp") && print F $w;
' /usr/local/mozilla/res/samples/test.wav