($Day, $Month, $DayNum, $Time, $Zone, $Year) = split(/ /, `date`);