Ah, so you want something else that what you first described. Hence, instead of using just diff, you should use diff -r, as in:

    diff -r directory1 directory2
[download]

That's much faster than figuring out how to use File::Find, and doing all the comparison yourself.