I have a column that discusses precisely that problem, and while the code is not immediately applicable to your situation, the technique surely is.

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.