Help for this page

Select Code to Download

Select or download this

use Time::HiRes qw( sleep);

...
    substr( $image[ $y], 2*$x, 1) = '@';
    @image;
}