$err = $image->DoSomething;
   if("$err") {  # one must evaluate the return value
                 # in string context, according to the 
                 # PerlMagick docs
      die ("Can't do Something: $err\n");
   }

##</code><code>##

    eval {
       $image->DoSomething;
       $image->DoSomethingElse;
       $image->Save;
    };
    if($@) { handle_the_error; }

##</code><code>##

package Image::Magick::Exceptions;
use warnings;
use strict;

use Exception::Class qw/Image::Magick::Exception/;

{   no strict;
    no warnings qw/redefine prototype/;

    my $class = "Image::Magick";

    for my $method (keys %{$class."::"})
    {
        my $cmethod = "${class}::$method";

        if (   defined *{$cmethod}{CODE}
           and $method ne 'new'    
           and $method !~ /^[A-Z]+$/
           )
        {
            *{"hidden::$cmethod"} = *{$cmethod}{CODE};
            *{$cmethod} = sub {
                my $err = &{"hidden::$cmethod"};
                if("$err")
                {
                    Image::Magick::Exception->throw (error => "$err");
                };
                $err;
             };
        }
    }
}

package main;

use Image::Magick;
use Image::Magick::Exceptions;

etc();

##</code><code>##

   $ret = $image->Write;
   if ("$ret") { error("$ret") }
   print $ret . " images written";

##</code><code>##

   $clone = $image->Clone;
   if (!ref $clone) { error($clone) }