Initial commit

Perl script takes image files from several source directories and copies and renames files to a target directory. Script assumes filenames in target directory match '[0-9]{8}.ext'.  Renaming is done by counting upwards from one plus the maximum number found in a filename in target directory.
ignores files with file-extension xyz for some reason.