Select Code to Download

use warnings;
use strict;
...
    next if !$segment->FileSize();
    print $segment->Describe(head => 16, tail => 16, width => 32)
}

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