A Perl Perceptual Image Hashing Module