#
# The Matrix Has You Curses version to follow 
#

use Term::ANSIColor;
$ctrlc = "matrixgo";
$SIG{INT} = sub { $ctrlc = "matrixend"; };
print "\n\n ";
@numbers = (33..94,96..125);
@spln = (2..6);
@colors = ("green","bold green",
           "bold green","green",
           "green","reverse green");

while(true) {
        my $rand = ($numbers[rand(@numbers)]);
        print color($colors[rand(@colors)]), chr($rand), color("reset");
        $counter++;
        $lncount++;
        if ($lncount == (80 - 16)) {
                print " \n ";
                if($ctrlc eq "matrixend") {
                        print "\n";
                        $ender = "-- The MATRIX has you -- ";
                        $m = int((80 - length($ender))/2);
                        while($mcount <= $m) {
                                print " "; $mcount++;
                        }
                        print color("bold"), "$ender\n\n";
                        exit;
                }
                $lncount = 0;
                $counter = 0;
        } elsif ($counter == 8) {
                print "  ", color("reset");
                $counter = 0;
        }
}