Hi qsl,

Take a look at File::Compare which ll accomplish your work. Please also do Super Search before posting.

use strict;
use warnings;
use File::Compare;

my $file1 = ("1.xml"); #first file
my $file2 = ("2.xml"); #second file
      
(compare("$file1", "$file2")== 0) ? print "They're equal\n" : print "n
+ot equal";
[download]