indexing perl script to recursively index and dump a selection of epub titles from a folder based on a last modified range