¡Feliz navidad!

use Term::ANSIColor;

my $message = pack("H*", "4D65727279204368726973746D61732066726F6D204861636B706C6179657273");
my $color1 = "green";
my $color2 = "red";
my @tree = (
"         *",
"        ***",
"       *****",
"      *******",
"     *********",
"        ***",
"        ***",
"        ***"
);
for (my $i = 0; $i < 5; $i++) {
  print "33c";
  foreach my $line (@tree) {
    if ($i % 2 == 0) {
      $line =~ s/*/O/g;
    } else {
      $line =~ s/O/*/g;
    }
    if ($i % 2 == 0) {
      print color($color1) . "$linen" . color("reset");
    } else {
      print color($color2) . "$linen" . color("reset");
    }
  }
  print "$messagen";
  select(undef, undef, undef, 0.5);
}

 Ho ho ho! 20132014201520162017 2018 2019 20202021…