use File::Slurp;
my $f1 = read_file('Input1');
my $f2 = read_file('Input2');
if ($f1 eq $f2) {
      print"Both File are Equal";
}else{
      print"Not-Equal";
}