my ($year, $month) = split /-/, shift || $today;
 
 printf "\n%04d-%02d\n\n", $year, $month;
-print "\e[1mMon Tue Wed Thu Fri Sat Sun\e[0m\n";
+print "Mon Tue Wed Thu Fri Sat Sun\n";
 
 for (calendar $month, $year, 1) {
     for (@$_) {
         no warnings;
         $_ = sprintf '%3s', $_ || '';
-        $_ = "\e[7m$_\e[0m"
-            if sprintf("%04d-%02d-%02d", $year, $month, $_) eq $today;
     }
     print "@$_\n";
 }