while (1){

                my @event = $astman->read_response;
                chomp(@event);