Select Code to Download

 use Date::Day;

...
$fragment  = &day($month,$day,$year);
$fragment = $fragment." $day-$month";
print "$fragment";

use Date::Day;

...
   printf MICROHTML '<td class="time">';
   printf MICROHTML "$fragment";
   printf MICROHTML '</td>';}