use strict;

 use Term::ReadKey;

 use Win32::Console;

 use Time::HiRes 'sleep';

 use IO::Handle;

 STDOUT->autoflush();

 system("mode con lines=40 cols=100");

 our $OUT=Win32::Console->new(STD_OUTPUT_HANDLE);

 $OUT->Cursor(, , , );  #hide cursor

 my ($i, $j);

 our ($rows, $cols) = (, );

 our ($mxrow, $mxcol) = ($rows-, $cols-);

 # init

 our @coord;

 my (@h, @n);

 my $y = ;

 foreach (<DATA>) {

     s/\r?\n$//;

     tr/\*\.//;

     @{$h[$y++]} = ( split("", $_) );

 }

 foreach $i ( .. $mxrow) {

     foreach $j ( .. $mxcol) {

         $coord[$i][$j]{'x'} = $j*;

         $coord[$i][$j]{'y'} = $i;

         $h[$i][$j] =  unless (defined $h[$i][$j]);

         $n[$i][$j] = ;

     }

 }

 &Draw(\@n, \@h);

 foreach (..) {

     sleep 0.05;

     @n = ();

     &NextBuffer(\@h, \@n);

     &Draw(\@h, \@n);

     @h = (@n);

     &KeyFunc();

 }

 sub NextBuffer {

     my ($ra, $rb) = (shift, shift);

     my ($i, $j, $sum);

     my ($L, $R, $U, $D);

     foreach $i ( .. $mxrow) {

         $U = ($i-) <  ? $mxrow : ($i-);

         $D = ($i+) > $mxrow ?  : ($i+);

         foreach $j ( .. $mxcol) {

             $L = ($j-) <  ? $mxcol : ($j-);

             $R = ($j+) > $mxcol ?  : ($j+);

             $sum = $ra->[$U][$L] + $ra->[$U][$j] + $ra->[$U][$R] +

                    $ra->[$i][$L] +              + $ra->[$i][$R] +

                    $ra->[$D][$L] + $ra->[$D][$j] + $ra->[$D][$R];

             if ($sum == ) {

                 $rb->[$i][$j] = ;

             } elsif ($sum == ) {

                 $rb->[$i][$j] = $ra->[$i][$j];

             } else {

                 $rb->[$i][$j] = ;

             }

         }

     }

 }

 sub Draw {

     my ($ra, $rb) = (shift, shift);

     foreach $i ( .. $mxrow) {

         foreach $j ( .. $mxcol) {

             if ($rb->[$i][$j] != $ra->[$i][$j]) {

                 &Point(

                     $coord[$i][$j]{'x'},

                     $coord[$i][$j]{'y'},

                     $rb->[$i][$j],

                 );

             }

         }

     }

 }

 sub Point {

     my ($mx, $my, $light) = (shift, shift, shift);

     my $color;

     if ($light == ) {

         $color = $FG_WHITE|$BG_GRAY;

     } else {

         $color = $FG_WHITE|$BG_BLACK;

     }

     $OUT->Cursor($mx, $my);

     $OUT->FillAttr($color, , $mx, $my);

 }

 sub KeyFunc {

     my $key;

     $key = ReadKey(-);

     return if (not defined $key);

     if ( ord($key) ==  ) {

         exit;

     }

 }

 __DATA__

 ......................**...............

 ......................**...............

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 .........*..........**...**............

 .......*.*............***..............

 ......*.*............*...*.............

 **...*..*.............*.*..............

 **....*.*..............*...............

 .......*.*......*.*....................

 .........*......**.....................

 .................*...*.................

 .....................**......*.........

 ....................*.*......*.*.......

 ...............*..............*.*....**

 ..............*.*.............*..*...**

 .............*...*............*.*......

 ..............***............*.*.......

 ............**...**..........*.........

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 .......................................

 ...............**......................

 ...............**......................