Select Code to Download

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}{s
+tart},  $Header{ws}{offset})); 

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

sub wpData{
    my $buffer = shift;
...
    }
}