Perl - De-duplicate photos with dedup.pl