use Audio::OSS qw(:funcs :formats :mixer);
my $dsp = IO::Handle->new("</dev/dsp") or die "open failed: $!";