my($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
$mon++; $year -= 100;
my $theDate = sprintf "%10i %02i %02i,%02i %02i:%02i", $wday, $mon, $mday, $year, $hour, $min;