my $run_all=$mwb_final->Button(
    -text => 'RunAll',
    -width => 100,
    -activebackground => 'blue',
    -background => 'green',
    -command => sub {
	    $first_button->invoke();
		$second_button->invoke();

		#push @jobs, threads->create(sub {$first_button->invoke();});
		#push @jobs, threads->create(sub {$second_button->invoke();});

        #$_->join for @jobs; # Wait for everything to finish.
	})->pack();

##</code><code>##

  > Thread 1 terminated abnormally: Can't call method "tagAdd" on an undefined value at /usr/pkgs/perl/5.14.1-threads/lib64/module/default/x86_64-linux-thread-multi/Tk/Text.pm line 158.
Thread 2 terminated abnormally: Can't call method "tagAdd" on an undefined value at /usr/pkgs/perl/5.14.1-threads/lib64/module/default/x86_64-linux-thread-multi/Tk/Text.pm line 158.
Attempt to free non-existent shared string '_ErrorInfo_', Perl interpreter: 0x602010 at /usr/pkgs/perl/5.14.1-threads/lib64/module/default/x86_64-linux-thread-multi/Tk.pm line 424.