Update a small PERL script

I have a small perl script to move image and video clips from my camera's memory card to appropriate sub-directories (named with date). I like to update the script to add following functionalities : 1. Add audit log file functionalities 2. Few flags - like move/delete, recursive/not, del directory 3. Allow to move media files from more than one source directories