sub read_file {
  local $/ = undef;
  open FILE, $_[0] or die "Couldn't open file: $!";
  $_[1] = <FILE>;
  close FILE;

}