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 "not equal";