James Bach has a link to a Perl program that does what you're doing here in the "TESTING THROUGH AUDIBILITY" entry. It's a neat piece of code, might give you some ideas.