Select Code to Download

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

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