use File::Compare;

if (compare $file1, $file2)
{
    #fail
}