use Image::Match;

  $sample = Prima::Image-> load('im1.gif') or die "Can't load: $@";
 
  
  $reference = Prima::Image-> load('im2.gif') or die "Can't load: $@";
  # find again
$OPTIONS{multiple} = 1 ;

  my ( $x, $y) = $sample-> match( $reference);
 $OPTIONS{overlap} = all ;

  print defined($x) ? "found at $x:$y\n" : "not found\n";
print "$x $y";