my ($year, $mon, $day, $ver) = unpack 'A4A2A2A2', $serialdate;