Here's an article that really helped me out with a similar situation:

http://www.perl.com/pub/a/2004/06/04/recorder.html?page

Following the example in the article will give you working code, but you'll need to clean it up a bit when you're done.