#!/usr/bin/perl

use strict;
use warnings;

use File::Find::Duplicates;

my @dupesets = find_duplicate_files('C:/test/');

foreach my $dupeset (@dupesets) {
				print "Duplicate files: ", join(", ", @{ $dupeset->files } ), "\n";
        print "MD5:  ", $dupeset->md5, "\n";
        print "Size: ", $dupeset->size, " Bytes\n";
				print "\n";
}