my $raw;
{
   open(my $fh, '<', $file)
      or die("Could not read file: $!\n");
   binmode $fh;
   local $/;
   $raw = <$fh>;
}