my $buffer = Data::File::Open('all.bin'); 
my %Header = Data::Struct::Define::Header::Get($buffer);
my $objREF_wp = Data::Struct::Wp::wpData(substr($buffer, $Header{ws}{start},  $Header{ws}{offset})); 

$value = Data::Struct::Wp::n_1_1($objREF_wp);