Select Code to Download

##############
#processfile.pl
...

#################END

my $numApplepackets= $obj->{records}->{0AA0}->{totalRecords};

for($BananaNum=1; $BananaNum le $numBananapackets; $BananaNum++){
    $fruitobj = $obj->parse0FFA($BananaNum);
    for(my $j=0;$j<2;$j++){
...
        }
    }
 }

for($j=0;$j<2;$j++){
            $len=$len-13;
            ($tmp, $obj->{$j}->{txABC},$obj->{$j}->{txDEF},$obj->{$j}-
+>{txGHI}, $obj->{$j}->{txJKL}, $obj->{$j}->{rxABC}, $obj->{$j}->{rxDE
+F}, $data)=unpack("C v v v v v v a$len",$data);