use threads;

#####  Creation of a dialog box using Tkx Module #####

$Run = $MainFrame -> new_ttk__button(
-text       =>  TEXT,
-width      =>  15,
-command    =>  sub
   {
       threads -> create({ "stack_size" => 64*4096,
                           "exit" => "thread_only"},
       \&CALLING_FUNCTION);
   }
);