directory compare with perl script