Select Code to Download

sub PortListener {
###########################
...
        print "Button clicked"; # or do something useful later
    }
}

while(1) { # keep looping for ever
        my $queuedvar =    $go->dequeue; # sleep until something is in
+ the queue
...
                $use_startstop = 0;
            }
        }