my $content = do {
    open my $fh, '<', $file or die "Couldn't open $file: $!\n";
    local $/ = undef;
    <$fh>;
};