Hello, I am creating an updater for my Tk program on Windows. It simply needs to download an installer and run it. The download part is done by the following subrutine which also updates a progress bar. Is there an easy way to break out of the download (possibily without to rewrite the whole program using threads etc.).

sub doUpdate{
    print "doUpdate\n";
    my    $url = 'https://www.domain.com/download/updater.exe';
    my    $file = $Path . '/updater.exe';
    print "Saving updater in $file\n";

    my $ttlDown = 0;
    my $ua = LWP::UserAgent->new;

    open my $out, '>:raw', $file or die "$file: $!";
    my $resp = $ua->get(
        $url,
        ':content_cb' => sub {
            my ($data, $response) = @_;
            my $size = $response->content_length;
            $ttlDown += length $data;
            $percent_done= $ttlDown * 100.0 / $size;
            print {$out} $data;
            $mw->update();
        },
    );
    close $out;
    print "Out\n";
}
[download]