#!/usr/bin/perl
                                                                                
$nech = $ARGV[0];
$nwav = $ARGV[1];
open(Fech,$nech);
$n=sysread(Fech,$entete,128);
@l = unpack("v7Vv55",$entete);
$nb = @l[7];
$fe = @l[60]*10**@l[59];
$n=sysread(Fech,$data,2*$nb);
# @sig = unpack("v*",$data);
close(Fech);
                                                                                
$cmd = "| sox -ws -t raw -r $fe - -c 2 -r 48000 $nwav";
open(Fwav,$cmd);
$n=syswrite(Fwav,$data,2*$nb);
close(Fwav);
