sub KillAll {
	my $msg = $mw->Dialog( -title   => "Warning",
		-buttons => [ "Yes",  "Cancel" ],
                );
	$msg->add("Label", -text => "Sure to kill all jobs?",
		-wraplength => '300',
		)->pack();

	my $killbutton = $msg->Show;

    if ($killbutton eq "Yes") {
		$ec_job1->kill_command;
		$ec_job2->kill_command;
		$ec_job3->kill_command;#each $ec_job is execute_command calling an external script.
	}
}