my ($year, $month, $day) = unpack("J4 J2 J2", $date);