while( my $entry = $mesg->shift_entry ) {