my ($count, @unpack) = unpack "NN/(w/aN)", read_file("$directory/segments");