sub slurp {
    my ($filename) = @_;
    local $/ = undef;
    open my $fh, $filename or die "$filename: $!";
    return <$fh>
}