use strict;
user warnings;
use GD qw(:DEFAULT :cmp);

# beide Bilder auf $image1 und $image2 einlesen
# und ggf. Skalieren 

if ($image1->compare($image2) & GD_CMP_IMAGE) 
  { warn "Bilder sind verschieden!\n"; }