#in thread
$SIG{INT}=sub{ die; #etc}

#in tk/controller
`kill -1 $thread`