use warnings;
use strict;
use ELF::Reader;

my $elfPath = $ARGV[1];
my $elfFile = ELF::Reader->new(filePath => $elfPath);

# Using index on the segments object
my $segments = $elfFile->GetSegments();

for my $segIndex (0 .. $elfFile->SegmentCount() - 1) {
    next if !${$segments}[$segIndex]->FileSize();
    print ${$segments}[$segIndex]->Describe(head => 16, tail => 16, width => 32)
};

print "\n";

# Using an iterator
my $nextSeg = $elfFile->GetSegmentIter();

while (my $segment = $nextSeg->()) {
    next if !$segment->FileSize();
    print $segment->Describe(head => 16, tail => 16, width => 32)
}