use Image::Magick;
my $P = new Image::Magick;
my $version = $P->Get('version');
print "Version: $version\n";