Something

#!/usr/bin/perl
@weekDays = qw(Sun Mon Tue Wed Thu Fri Sat Sun);
($second, $minute, $hour, $dayOfMonth, $month, $yearOffset, $dayOfWeek, $dayOfYear, $daylightSavings) = localtime();
$theTime = "$hour:$minute:$second";
$theTime2 = "$weekDays[$dayOfWeek]";

use Term::ANSIColor;

print color("red"), "$theTime\n";
print color("blue"), "$theTime2\n", color("reset");