File deduplicator written in Perl