>>392
my($year, $mon, $day) = unpack("A2A2A2", "060711");