use IO::Handle; use Audio::OSS qw(:funcs :formats :mixer); my $dsp = new IO::Handle("