#!/usr/bin/perl
use warnings;
#converts 8bit wav files to 16bit

my @files = <*.wav>;
  foreach my $file(@files){
     my ($name) = $file =~ /(.*).wav$/;
    system("sox -b $name.wav  -w $name.16.wav");
}