my ($day, $month, $daynum, $time, $zone, $year) = split /\s+/, localtime;