Perl script to dump/backup iPhoto/Aperture metadata