System Functions Perl

use File::Compare;
if (compare("file1.txt","file2.txt")) {
    print "Those files are not equal.\n";
} else {
    print "Those files are equal.\n";
}