You can use File::Fingerprint under the same terms as Perl itself.