open(FH,"<$file");
my $data;
{
  local $/ = undef;
  $data = <FH>;          # Slurrp
}
close(FH);