sub chg_btn { 
$btn1->configure(-background => "green", -foreground => "black");
}