0: #
1: # The Matrix Has You Curses version to follow 
2: #
3: 
4: use Term::ANSIColor;
5: $ctrlc = "matrixgo";
6: $SIG{INT} = sub { $ctrlc = "matrixend"; };
7: print "\n\n ";
8: @numbers = (33..94,96..125);
9: @spln = (2..6);
10: @colors = ("green","bold green",
11:            "bold green","green",
12:            "green","reverse green");
13: 
14: while(true) {
15:         my $rand = ($numbers[rand(@numbers)]);
16:         print color($colors[rand(@colors)]), chr($rand), color("reset");
17:         $counter++;
18:         $lncount++;
19:         if ($lncount == (80 - 16)) {
20:                 print " \n ";
21:                 if($ctrlc eq "matrixend") {
22:                         print "\n";
23:                         $ender = "-- The MATRIX has you -- ";
24:                         $m = int((80 - length($ender))/2);
25:                         while($mcount <= $m) {
26:                                 print " "; $mcount++;
27:                         }
28:                         print color("bold"), "$ender\n\n";
29:                         exit;
30:                 }
31:                 $lncount = 0;
32:                 $counter = 0;
33:         } elsif ($counter == 8) {
34:                 print "  ", color("reset");
35:                 $counter = 0;
36:         }
37: }