#!/usr/bin/perl
use
strict;
use
warnings;
use
FindBin;
Log::Log4perl->easy_init(
$ERROR
);
my
$e
= ELF::Extract::Sections->new(
file
=>
'/lib/libz.so'
);
my
@sections
= @{
$e
->sorted_sections(
field
=>
'size'
,
descending
=> 0 ) };
#print "$sections[-1]";
#$sections[-1]->write_to( file => '/tmp/out.blob' );
#
$sections
[-1]->contents;