Select Code to Download

my $segments = $elfFile->GetSegments();

...
    $segments->[$segIndex]->FileSize() or next;
    print $segments->[$segIndex]->Describe(head => 16, tail => 16, wid
+th => 32)
};

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