Select Code to Download

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

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

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

etc();

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

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