For some reason I think of Test::LectroTest. I don't have a good example, but it might help you.