#!/usr/bin/perl

use strict;
use warnings;
use Game::Life; 

my $game = new Game::Life( 20 ); 
my $starting = [ 
                 [ 1, 1, 1 ], 
                 [ 1, 0, 0 ], 
                 [ 0, 1, 0 ] ]; 

$game->place_points( 10, 10, $starting ); 
for (1..20) { 
    my $grid = $game->get_grid(); 
    foreach ( @$grid ) { 
        print map { $_ ? 'X' : '.' } @$_; 
        print "\n"; 
    } print "\n\n"; 
      $game->process();
}