mojo slurp sort of works

sub slurp {
  my $path = shift;
  croak qq{Can't open file "$path": $!} unless open my $file, '<', $path;
  my $content = "";
  while (<$file>) {
    $content = "$content$_";
  }
  return $content;
}