sub slurp_file($) {
    open my $fh, (my $file = shift) or die "open $file: $!\n";
    local $/;
    <$fh>;
}