while ( !$stat{'done'} ) {
    if ( my $msg = $queue_up->dequeue() ) {