Dear all, can some one please explain this part of the post a little bit more in detail? its from the upper post, I could not get the following part:
----------------------------------
So a number of unpack operations with '@' are required, each using your $p to start processing in the right place in the response.
I'd knock up a subroutine to extract a name from a given position in the current resoonse packet. You'll want it to return two things, the name and the position just after the name. Since you're new to Perl, you'll need to learn either that a subroutine can return a list (in List Context, of course), so:

($name, $p) = extract_name($response, $p) ; .... sub extract_name { my
+ ($response, $p) = @_ ; my $extracted ... .... return ($extracted, $p
+) ; } ;
[download]

or that you can do "call by reference" type things:

sub extract_name { my ($response, $p) = @_ ; 
my $extracted ... .... $_[1] = $p ; 
# $_[1] is implicitly a reference to the 2nd +actual argument return $
+extracted ;
 } ;
[download]

------------------------------