#!/usr/bin/perl
my $file = shift || 'testout.wav';

open FH, "< $file" or warn "$!\n"; 
open(DSP,">/dev/dsp") or warn "$!\n";

while ( 4096 == read( FH, my $buffer, 4096 ) ) { 
    print DSP $buffer; 
} 

#1liner
#perl -e 'local $/;$w=<>;open(F,">","/dev/dsp") && print F $w;' dtmf.wav