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)
}

##</code><code>##

Type: PT_LOAD
Virtual load address:  0x00000000
Memory image size:     0x000129f8
Segment alignment:     0x00000008
00000000: 20040000 00010019 00010069 00010081
000129e8: 000129c8 60200000 000129d0 20000000

Type: PT_LOAD
Virtual load address:  0x00000000
Memory image size:     0x000129f8
Segment alignment:     0x00000008
00000000: 20040000 00010019 00010069 00010081
000129e8: 000129c8 60200000 000129d0 20000000