Select Code to Download

#!/usr/bin/perl --
use strict;
...

$guithread->join; ## wait for gui to finish
__END__

sub MyApp::DBFetch::WorkQ {
    my( $qin, $qout ) = @_;
...
         }
    }
}

sub MyApp::GUI::WorkQ {
    my( $qin, $qout ) = @_;
...
    }
    return 1; ## don't cancel timeout, repeat it
}