#!/pkg/ldc/bin/perl

# ./dtowav44mono.perl input.d output.wav

if ($#ARGV < 1) {
    print "Usage: dtowav44mono.perl file.d file.wav\n";
    exit
}

$infile = $ARGV[0];
$outfile = $ARGV[1];

print "Converting $infile to $outfile\n";

system("/pkg/esps/bin/bhd $infile | /pkg/ldc/pkg/sox11/sox -c 1 -r 44100 -s -w -t .raw - -t .wav $outfile");