Select Code to Download

sub is_alive {
   my $self = shift;
...
   + $self->is_alive( $x + 1, $y + 1 );
}

# Return the list of dead cells surrounding a cell
sub get_dead_cells {
...
   + ( 0 + exists $cells->{ "$x2:$y2" } );
}