# !/usr/bin/perl

# usage: applies tail.cpp to wav files in directory
# be sure to back up first, since this overwrites files in place 


@files = glob("[1-9]*.wav");

foreach $file (@files)
{
#  print "$file\n"; 
  my @array = split /\./, $file; 
  if ($array[0] < 600) {
#     print "$array[0]\n";
      system("./tail $file 0.015");
      system("mv tailout.wav $file");
  }
}


exit 0;

