#!/usr/bin/perl

@lines=`ls -1 /var/spool/asterisk/monitor/*in.wav`;
foreach $line (@lines){
    (@splits)=split("in.wav",$line);
    chop(@splits[0]);
    $base=@splits[0];
    $base=~ s/(")/\\\"/g;
    $base=~ s/( )/\\\ /g;
    $base=~ s/(>)/\\\>/g;
    $base=~ s/(<)/\\\</g;
    print `soxmix $base-in.wav $base-out.wav $base.wav`;
    `rm -f $base-*`;