Select Code to Download

EVT_BUTTON($self,$self->{button_start}, \&DeployTestThread );

# Prevents double detach attempts
my $DETACHING :shared;
...
DeployTestThread(); 

package MyApp;

EVT_BUTTON($self,$self->{button_start}, sub{  $TERM = 0  } );