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