perl script that puts EXIF data from photos to SQL database