my $raw_image_data = do {
   open(my $fh, '<:raw:perlio', $image_qfn)
      or die("Can't open image file \"$image_qfn\": $!\n);
   local $/;
   <$fh>;
};