#!/usr/bin/perl

@months = qw(
  January February March April May June
  July August September October November December);
@wdays = qw(Sunday Monday Tuesday Wednesday Thursday Friday Saturday);
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
$year += 1900;
if ($hour>12) {
    $hour -= 12;
    $m = "pm";
} else {
    $m = "am";
}
$time = sprintf("%02d:%02d:%02d %s", $hour,$min,$sec,$m);
$date = "$wdays[$wday] $months[$mon] $mday, $year";
$pad1 = int((28 - length($date)) / 2);
$pad2 = 28 - length($date) - $pad1;
$date = " " x $pad1 . $date . " " x $pad2;

print <<"EOF"
Content-type: text/plain
Refresh: 1

				/ \\
			      /     \\
			    /         \\
                          ---------------
                          |-------------|
			  |      |      |
			  | --       -- |
			  |      |      |
			  |-------------| 
                          | $time |
			  |-------------| 
                          |             |
                          |             |
                          |             |
                          |             |
                          |             |
                          |             |
                  |------------------------------|
		  | $date |
                  |------------------------------|
EOF