print $_->Describe(head => 16, tail => 16, width => 32)
     for grep $_->FileSize, @$segments;