my $data = do { open my $fh, '<', $file or die "$file: $!";
	local $/; <$fh> };