game of life patch, perl source and example initial conditions