perlmgr: channel 7: new [client-session]
perlmgr: Requesting channel_open for channel 7.
perlmgr: Entering interactive session.
After definition 1
perlmgr: Info - packet type: 91
perlmgr: Sending command: /usr/lbin/getprpw -m nullpw daemon
perlmgr: Requesting service exec on channel 7.
perlmgr: channel 7: open confirm rwindow 10000 rmax 16384
After definition 1
perlmgr: Info - packet type: 94
After definition 1
After definition 0
After definition 0
After definition 0

##</code><code>##

        while (my $packet = Net::SSH::Perl::Packet->read_poll($ssh)) {
            if (my $code = $h->{ $packet->type }) {
                $ssh->debug("Info - packet type: " . $packet->type);
                $code->($cmgr, $packet);
            }
            else {
                $ssh->debug("Warning: ignore packet type " . $packet->type);
            }
        }
        last if $ssh->_quit_pending;

##</code><code>##

 my $rb = defined $r ? $r->[VEC_BITS] : undef;
 my $wb = defined $w ? $w->[VEC_BITS] : undef;
 my $eb = defined $e ? $e->[VEC_BITS] : undef;

 print "After definition ".select($rb,$wb,$eb,$t)."\n";

 if(select($rb,$wb,$eb,$t) > 0)

##</code><code>##

      perlmgr -> unixmgr TCP D=22 S=43952     Ack=3107781192 Seq=1205590486 Len=0 Win=33304 Options=<nop,nop,tstamp 580143287 397338517>

      perlmgr -> unixmgr TCP D=22 S=43952     Ack=3107781192 Seq=1205590486 Len=88 Win=33304 Options=<nop,nop,tstamp 580143288 397338517>

unixmgr -> perlmgr       TCP D=43952 S=22     Ack=1205590574 Seq=3107781192 Len=0 Win=32768 Options=<nop,nop,tstamp 397338535 580143288>

unixmgr -> perlmgr       TCP D=43952 S=22     Ack=1205590574 Seq=3107781192 Len=48 Win=32768 Options=<nop,nop,tstamp 397338581 580143288>

      perlmgr -> unixmgr TCP D=22 S=43952     Ack=3107781240 Seq=1205590574 Len=0 Win=33304 Options=<nop,nop,tstamp 580143351 397338581>