Help for this page
while ( $res = $sock->getline ) { my $ok = $self->_cmd_ok($res); ... $args{process}->($res); } }