$image->Read(file=>\*IMAGE) || die "Unable to read image: $!";

##</code><code>##

{ my $result = $image->Read(file => \*IMAGE);
  die $result if $result;
}