$automode_bttn = $button_f->Button(-text => "Start Automode",
				   -command => \&do_automode);