Select Code to Download

sub updateprogress {
    my ($self) = @_;
...
    }
    Gtk2::Gdk->flush;
}

sub manager {
    my ($Operation) = @_;
...

}