Select Code to Download

sub button_press {
    my $sthread = threads->new(sub { worker_thread() });
...
    # Here we "return immediately" :)
    return;
}

#!/usr/bin/perl
use warnings;
...
      }
     );             
}

#!/usr/bin/perl 
use warnings;
...
__END__