my ($y, $m, $d) = unpack('A4A2A2', $ARGV[0]);