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