Here is a small sample (taken almost verbatim from the threads POD), demonstrating cancelling threads from a Tk gui:

#!perl -slw
use strict;
use Time::HiRes qw [ sleep ];
use threads;
use Thread::Queue;


sub work{
    my( $id, $delay, $Q ) = @_;
    my $n = 0;
    local $SIG{QUIT} = sub{ threads->exit; };
    while( sleep( $delay ) && ++$n <= 100 ) {
        $Q->enqueue( "$id:$n" );
    }
}

my $Q = new Thread::Queue;

my @threads = map threads->new( \&work, $_, 0.1 * $_, $Q ), 1 .. 2;

require Tk::ProgressBar;

my $mw = MainWindow->new;

my $pb1 = $mw->ProgressBar()->pack();
my $bt1 = $mw->Button(
    -text => 'Cancel thread 1',
    -command => sub { $threads[0]->kill('QUIT') }
)->pack;

my $pb2 = $mw->ProgressBar()->pack();
my $bt2 = $mw->Button(
    -text => 'Cancel thread 2',
    -command => sub {  $threads[1]->kill('QUIT') }
)->pack;

my $repeat;
$repeat = $mw->repeat( 100 => sub {
    while( $Q->pending ) {
        my( $id, $progress ) = split ':', $Q->dequeue;
        return unless $progress;
        ( $id == 1 ? $pb1 : $pb2 )->value( $progress );
        if( $id == 2 && $progress == 100 ) {
            $repeat->cancel;
            $mw->exit;
        }
    }
} );


$mw->MainLoop;

END{ $_->join for @threads; }
[download]

Wrapping that over in a bunch of unnecessary verbose complexity is left as an exercise for the reader :)