open (IMAGE1, "<image1.jpg") || die print"cant open image1.jpg";
$results1 = <IMAGE1>;
close (IMAGE1); 

open (IMAGE2, "<image2.jpg") || die print"cant open image2.jpg";
$results2 = <IMAGE2>;
close (IMAGE2); 

if ($results1 eq $results2){
print"both images are the same";
}