I'm not sure, but I think you need to update your main window in the sub 'updateScreen'. Updating your window is required if you want to update a progress bar.

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