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