sub updateScreen {
    my ($comm, $percent_done)=@_;
    ($percent_done = $comm->dequeue ) if $comm->pending;       
    $mw->update();  # <--- update main window
    }