sub slurp_file {
	my $file = shift;

	open my $fh, '+<', $file
	  or croak("E: Unable to open file '$file': $!");

	local $/;
	return <$fh>;
}