$fr->Button(-text=>'x',-command=> sub{ funktionX($para); })->pack;