Thanks for replying, It must just be my logic - I really thought that you'd check the name first of files, store them in the array then find duplicate names and then MD5 them to see if they are indeed the same. Thanks for the little piece of code.

(my $fn = $File::Find::name) =~ tr#/#\\#;
[download]

I have a few scripts using File::Find this is handy.