#!/usr/local/bin/perl
use Image::Magick;

$i1 - Image::Magick->new;
$i2 - Image::Magick->new;

$i1 -> Read (filename=> 'empty.jpg' );
$i2 -> Read (filename=> 'red.jpg' );

$d = $i1->Compare(image=>$i2);