Select Code to Download

use strict;
use warnings;
...

    $sp->Button (-text => "QUIT", -command => sub { exit; })->pack;
    } # start_computation