...
my $obj_temp = "";
   $obj_temp = $objImageMagick->Read("dir/$filename");
   "$obj_temp" if "$obj_temp";# print the error message
   $obj_temp =~ /(\d+)/;
   warn "Error Number: ".$1." Number of images read: ".0+$obj_temp;