$start_button =$top->Button(-text => "Start the Process", -foreground =>"red", -command => sub{go()});