Comparing File

use File::Compare;
if(compare("sam","sam1"))
{
print "file are same";
}
else
{
print "Files are not sare";
}