Input1:(Input file) contains

Hi this is the line
Here to check date

Input2;(Input second file) contains

Hi this is the line
Here to check date

-------------------
#!/usr/local/bin/perl
open ipfile1 Input1 or die"File not found $!\n";
open ipfile2 Input2 or die"File not found $!\n";

if(ipfile1 == ipfile2){
      print"Both File are Equal";
}else{
      print"Not-Equal";
}